Amiga Format CD 41/Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso/-seriously_amiga-/misc/vinced/install/install_vnc

Text File | 1999-04-19 | 131KB | 4,738 lines

; $VER: Install_ViNCEd 41.8 (23.1.99)
; Script to install ViNCEd version 41.66
; © 1993-1999 THOR - Software
;
; The installer software is copyrighted © 1993 CBM/AI/ESCOM/GATEWAY, whatever...
;

; tell the user that we're 0% done
(complete 0)

;=============================================================================
;###procedures###
; useful procedure

(procedure TERMINATE (makeassign "..VNC..")

)

(procedure JOIN (

(if (not (exists (#name)))
    ;then
    (abort (#exit-not-found name 0))
)

(if (set ioerr (run ("c:copy \"%s\" to t:__tempfile__" #name)))
    ;then
    (abort (#exit-not-found name ioerr))
)

(if (set ioerr (run ("join t:__tempfile__ \"%s\" to \"%s\"" #joinsoure #name)))
    ;then
    (abort (#exit-not-found name ioerr))
)

(run ("c:delete t:__tempfile__"))

))


(procedure INSTALL_LANGUAGE (

(set #locale (tackon #target "Locale"))

(if (not (exists #locale))
    (makedir #locale)
)

(set #locale (tackon #locale "Catalogs"))

(if (not (exists #locale))
    (makedir #locale)
)

(set #locale (tackon #locale #lang_arg))

(if (not (exists #locale))
    (makedir #locale)
)


(if (> @user-level 1)
    ;then
              (
        (set #locale
                   (askdir     (prompt #where-locale)
                           (help #where-locale-help)
                    (default #locale)
            )
              )
    )
)

(if (<> #locale "")
    (

        (set #locale (tackon #locale "VNC"))

        (if (not (exists #locale))
            (makedir #locale)
        )

        (set #locale_source (tackon "..VNC..:LOCALE/catalogs" (tackon #lang_arg "VNC")))

        (copyfiles
            (source #locale_source)
            (dest #locale)
            (all)
        )
    )

)

))

;==========================================================================
; termination stuff

(onerror (TERMINATE))

;==========================================================================
; get current WB version
(set #version (/ (getversion "LIBS:version.library") 65536))

;get language specific strings
;==========================================================================
;###english###
; English strings

(set #default_lang 1)

(set #yes "Yes")
(set #no  "No")

(set #which-disk
(cat "In which disk should ViNCEd be installed?"
))

(set #exit-not-decoded
(cat "The SetVNC program can't be decoded. Conact the author at "
     "[e-mail]."
))

(set #which-disk-help
(cat "\nThis section lets you choose in which disk the "
     "ViNCEd files should be installed. These should normally go in the same "
     "location as the Workbench files, i.e. the boot partition or -disk.\n\n"
     @askdir-help
))

(set #no-assign
(cat "\nThe destination has to be a system disk. The drawers S,DEVS,LIBS "
     "and C must exist there.\n\n"
))

(set #old-name
(cat "OLD"
))

(set #move-old
(cat "\n\nDo you want to backup the following files "
     "to the \"%s\" drawer?\n\n%s"
))

(set #move-old-help
(cat "\nInstalling ViNCEd will replace some current Workbench files, "
     "the Startup- and MountList files. "
     "In order to preserve any changes you have previously made to these "
     "files, the installation process will copy them to the \"%s\" drawer "
     "where they can be found later on."
))

(set #move-old-1
(cat "Copy"
))

(set #move-old-2
(cat "Skip"
))

(set #ask-vnc
(cat "Please locate the ViNCEd source directory:"
))

(set #ask-vnc-help
(cat "Please specify here the directory where you've unpacked the "
     "archive to. The default I selected for you should work in "
     "(almost) all cases, so don't worry about selecting another "
     "source.\n\n"
     @askdir-help
))

(set #do-mount
(cat    "Do you want to add the mount entries for the ViNCEd handler?"
))

(set #mount-help
(cat    "If you want to install ViNCEd as a shell window driver "
    "you must MOUNT ViNCEd as a device, like the RAD ram disk or a "
    "hard disk. The information needed how to do this is "
    "included in mount entries, which must be added to the "
    "system list of devices. I advise you to answer with a YES "
    "since NOT mounting ViNCEd is rather useless. "
))

(set #modify-startup
(cat    "Do you want to mount ViNCEd automatically on startup?"
))

(set #override-con
(cat    "Replace the CON: handler by ViNCEd?"
))

(set #override-help
(cat    "With an extra command added to the startup-sequence "
    "ViNCEd can be configured to replace Commodore's "
    "system window handler, CON:. This results in opening "
    "every console window, like the windows used for ARexx, "
    "Ed and much more, as an ViNCEd window. If you choose to "
    "do so, I advice you NOT to turn on the "
    "\"Use Shell Mode by Default\" flag in the preferences "
    "editor. Read more about this in the guide."
))

(set #modify-startup-help
(cat    "The command to be added is \"%s\"\n\n"
    "This will mount ViNCEd automatically."
))

(set #which-name
(cat    "Mount ViNCEd under which name?"
))

(set #which-name-help
(cat    "ViNCEd can be mounted as VNC: or as NEWCON:. "
    "It works fine under both names, but you should use NEWCON: "
    "with Workbench 1.3 to replace the system window handler. "
))

(set #copy-lib
(cat    "Do you want to copy the vnc.library to the LIBS: drawer?"
))

(set #copy-lib-help
(cat    "The vnc.library is the heart of the ViNCEd window driver and "
    "contains the handler itself. The window handler won't work "
    "with it, and not installing it makes the installation useless."
))

(set #copy-setvnc
(cat    "Do you want to copy the SetVNC control "
    "program to the C: drawer?"
))

(set #copy-setvnc-help
(cat    "The SetVNC program acts as a preference program for the ViNCEd "
    "system. It provides not only a complete preferences editor, but "
    "also functions for job control. Please consult the guide to find "
    "out more about this program."
))

(set #do-locale
(cat    "Which languages do you want to install?"
))

(set #locale-help
(cat    "ViNCEd can be localized for various languages. Please mark "
    "here all languages you like to install. The necessary localization "
    "data will be then copied to your system as part of the "
    "installation process, namely to the LOCALE: drawer."
))

(set #do-prefs
(cat    "Do you want to install the preferences icon?"
))

(set #prefs-help
(cat    "This icon will be copied in your Prefs drawer and will "
    "invoke the preferences editor of ViNCEd, the SetVNC "
    "program. A nice graphical user interface will allow you "
    "to setup the parameters of ViNCEd then."
))

(set #copy-help
(cat    "O.K. to install the ViNCEd online Guide?"
))

(set #copy-help-help
(cat    "The ViNCEd guide is a complete documentation of "
    "the handler and the preferences editor, SetVNC. "
    "It is invoked by the Help key in the shell "
    "or by a Help button in the preferences editor. If you aren't "
    "really low on disk space, you should install it."
))

(set #help-dir
(cat    "Please select the drawer to install the guide in:"
))

(set #help-help
(cat    "ViNCEd comes with an online help guide, using Commodore's "
    "AmigaGuide or MultiView program. Please select the drawer to copy "
    "this database to."
))

(set #do-docs
(cat    "Do you want to install the ViNCEd include files?"
))

(set #docs-where
(cat    "Please select the drawer for the include and link library files:"
))

(set #docs-help
(cat    "If you want to use all the features of ViNCEd, you need "
    "the C- and assembler include files for writing own "
    "programs that call ViNCEd. It is recommended "
    "that you use the link library stub routines for this task. "
))

(set #browser-where
(cat    "Please locate your favorite AmigaGuide browser:"
))

(set #browser-help
(cat    "Please select a program that can display AmigaGuide files. "
    "This should be AmigaGuide or Multiview. As a last resort, "
    "select MORE or Ed that can be found in the Utilities or "
    "C: drawer of your workbench disk."
))

(set #do-scripts
(cat    "Do you want to install the shell scripts?"
))

(set #scripts-help
(cat    "The scripts replace the SetFont and the SetKeyboard command files "
    "in a ViNCEd compatible way. Three other tiny scripts are useful "
    "shortcuts for job control functions. "
))

(set #where-scripts
(cat    "Where shall I copy the scripts to?"
))

(set #where-scripts-help
(cat    "Shell scripts should be usually placed in the S directory of your "
    "startup device, where they will be found by the shell by default. "
    "However, if you prefer a different location, go ahead, but make "
    "shure the shell can find them, or they are useless."
))

(set #where-setvnc
(cat    "Please select the directory to install the "
    "SetVNC program in:"
))

(set #where-setvnc-help
(cat    "The SetVNC program is the ViNCEd control program "
    "and the preferences editor, all in one. It should "
    "usually go to the C: directory. I recommend NOT to "
    "put in into Prefs."
))

(set #where-locale
(cat    "Where to install the catalog files to? (A directory "
    "VNC will be created):"
))

(set #where-locale-help
(cat    "Please select the directory I shall copy the catalog "
    "files to, i.e. the files containing the translations "
    "of ViNCEd to different languages. A directory named "
    "VNC will be created for "
    "you at the location you've selected. "
    "The default is usually good enough."
))

(set #where-devs
(cat    "Where to install the mount icons to?"
))

(set #where-devs-help
(cat    "The mount icons are required to mount the ViNCEd handler on "
    "startup. They are read by the startup-sequence by the "
    "mount command at boot time. These icons should usually go "
    "into the DEVS/DosDrivers directory."
))

(set #where-prefs
(cat    "Where to install the prefs editor icon?"
))

(set #where-prefs-help
(cat    "Please select the directory where to copy the SetVNC icon "
    "to. This should usually be the Prefs drawer of your system. "
    "It is, by the way, not required that the SetVNC program is "
    "in the same directory as its icon."
))

(set #where-archive
(cat    "Where to install the preferences settings?"
))

(set #where-archive-help
(cat    "Please select the directory where I shall copy the "
    "preferences settings file to. This should be usually "
    "the ENVARC: assign of your system."
))

(set #where-rexx
(cat    "Please locate the directory containing the rexxsyslib.library:"
))

(set #where-rexx-help
(cat    "Please select here the directory containing the "
    "rexxsyslib.library. This file is usually contained in the "
    "LIBS drawer of your boot disk.\n"
    "I need this information to find out whether the "
    "rexxsyslib.library is an older version which is buggy and "
    "where I can apply a patch to to fix it. You will be asked "
    "about the patch separately again."
))

(set #replace-old
(cat    "Install 3.6x settings and replace the old 3.5x prefs?"
))

(set #replace-old-help
(cat    "I found some old preferences settings in your ENVARC:sys drawer. "
    "The new versions of ViNCEd are still able to read the old "
    "format, but this support will be removed in one of the next "
    "releases. Not all of the old flags will be respected, however, "
    "by the new ViNCEd version, some details must be reconfigured. "
    "If you install a new preferences file, the old settings "
    "will be still kept in their original location, so nothing is "
    "lost; but they will be ignored by ViNCEd if a newer preferences "
    "release is available. If, after installation, you want to "
    "reestablish your old settings, you could simply delete the "
    "ENVARC:ViNCEd.prefs file, but don't forget to run \"SetVNC\" "
    "some time later since support for the old format won't last "
    "forever."
))

(set #copy-icon
(cat    "Do you want to replace the shell icon?"
))

(set #copy-icon-help
(cat    "If you want to use ViNCEd as shell editor, I advice you to "
    "replace the system icon by the icon that comes with this "
    "archive. It selects a ViNCEd path as shell window."
))

(set #where-shell
(cat    "Please select the directory the shell icon resides in:"
))

(set #where-shell-help
(cat    "If you want to replace the default shell icon, "
    "please tell me where you have put it. By default, this "
    "is either the root directory of your boot-volume, or "
    "the Systems drawer. Please note that I need the "
    "DIRECTORY, not the file!"
))

(set #where-lib
(cat    "Please select the directory to copy "
    "the vnc.library to:"
))

(set #where-lib-help
(cat    "The vnc.library is the main library of ViNCEd, "
    "it contains the all handler functions. You should "
    "usually install this in your LIBS: directory."
))

(set #do-patch
(cat    "Do you want to patch ARexx to remove a bug?"
))

(set #patch-help
(cat    "The rexxsyslib.library function WaitDosPacket has a bug "
    "which might cause crashes. This is not a "
    "specific ViNCEd problem, and "
    "may also occur with other programs. You should install "
    "this patch to repair the library."
))

(set #copy-stringsnip
(cat    "Do you want to install the StringSnip command?"
))

(set #install-stringsnip
(cat    "Do you want to install StringSnip at startup time?"
))

(set #stringsnip-help
(cat    "StringSnip is a small utility, which, if installed, enhances "
    "the editor features of string gadgets in a way comparable "
    "to ViNCEd. Amiga-X cut the contents, Amiga-C copies them and "
    "Amiga-V inserts the clipboard. Additional cursor key "
    "combinations like those provided by ViNCEd make this a useful "
    "tool, which works independent from ViNCEd."
))

(set #where-stringsnip
(cat    "Where to install the StringSnip program?"
))

(set #where-stringsnip-help
(cat    "Please select a directory where I shall copy the "
    "StringSnip utility to and where it is loaded from "
    "on startup. This should be usually the "
    "C: directory of your boot disk.\n"
    #stringsnip-help
))

(set #copy-multiassigns
(cat    "Do you want to install the TrueMultiAssigns command?"
))

(set #install-multiassigns
(cat    "Do you want to run TrueMultiAssigns at startup time?"
))

(set #multiassigns-help
(cat    "The TrueMultiAssigns program is a patch command that makes the "
    "pattern matching routines of AmigaDOS operating correctly on "
    "multi directory assigns. "
    "The TAB expansion directory cache of ViNCEd expects that this "
    "patch is installed, so please add it to the system. "
    "Several programs can be found for the same job, but all I "
    "inspected are more or less broken, including MultiCX and "
    "the old TrueMultiAssigns 1.02 by Marcus Wild, and don't work "
    "with ViNCEd. I recommend to use my patch, since it has been "
    "tested to support ViNCEd."
))

(set #where-multiassigns
(cat    "Where shall I install TrueMultiAssigns?"
))

(set #where-multiassigns-help
(cat    "Please select a directory where I shall copy the "
    "TrueMultiAssigns program to. It will be loaded from there "
    "at startup time. This should be usually the C: directory of "
    "your boot disk.\n"
    #multiassigns-help
))

(set #copy-tbiclass
(cat     "Do you want to install the titlebar image class?"
))

(set #where-tbiclass
(cat    "Where to install the titlebar image class?"
))

(set #copy-tbiclass-help
(cat    "The titlebar image class, written by Massimo Tantignone and "
    "included with his friendly permission, customizes ViNCEd's "
    "title bar images - the macro buttons as well as the iconification "
    "gadget. This class is not a MUST, ViNCEd will provide its own "
    "images if it is not available. It is therefore a matter of "
    "personal style whether you prefer ViNCEd's default or Massimo's "
    "titlebar button style.\n"
    "This class IS, TOO, NOT required if you're already running "
    "VisualPrefs because it is then provided anyhow."
))

(set #where-tbiclass-help
(cat    "The titlebar image class should usually go to all the other "
    "image classes, namely to \"SYS:Classes/Images/titlebar.image\".\n"
    "There's usually little reason to put it elsewhere, but remember "
    "that ViNCEd tries to open this class as \"images/titlebar.image\" "
    "so a sub-directory named \"images\" is MANDATORY.\n"
    #copy-tbiclass-help
))

(set #copy-unixdirs
(cat    "Do you want to install the UnixDirs command?"
))

(set #install-unixdirs
(cat    "Do you want to run UnixDirs at startup time?"
))

(set #unixdirs-help
(cat    "This fine program, developped by Timo Kaikumaa, adds "
    "unix style directory addressing to the Amiga OS. To give "
    "an example, the dot (.) can be used to refer to the current "
    "directory, the double dot (..) is a replacement for the "
    "parent directory and the single slash refers to the root "
    "directory. By default, the star (*) gets also a legal "
    "wild card character, replacing the usual #? sequence.\n"
    "Thanks goes to Timo for allowing me to redistribute his "
    "patch."
))

(set #where-unixdirs
(cat    "Where to install the UnixDirs program?"
))

(set #where-unixdirs-help
(cat    "Please select a directory where to copy the UnixDirs program"
    "to. This should be usually the C: directory of your "
    "boot disk where this tool can be loaded from on "
    "startup-time.\n"
    #unixdirs-help
))

(set #copy-uxhelp
(cat    "O.K. to install the UnixDirs Guide?"
))

(set #copy-uxhelphelp
(cat    "This is the documentation for the UnixDirs "
    "program by Timo Kaikumaa. Unless you're really "
    "low on disk space, please install it as well."
))

(set #copy-topaz6
(cat    "Do you want to install the topaz6 font?"
))

(set #copy-topaz6-help
(cat    "The topaz6 font is a 6x8 font which replaces the XEN.8 font. "
    "Unlike the XEN font, which is a proportional font and "
    "therefore not well suited for ViNCEd, the topaz6.8 works fine. "
    "This font is complete and contains all special characters of "
    "the LATIN-ANSI character set."
))

(set #where-topaz6
(cat    "Where to install the topaz6 font?"
))

(set #where-topaz6-help
(cat    "Please select a directory where to copy the font files to. "
    "This should usually the FONTS: directory of your boot disk "
    "or any other place where it can be found by the system.\n"
    #copy-topaz6-help
))


(set #where-uxhelp
(cat    "Where to install the UnixDirs guide?"
))

(set #where-uxhelp-help
(cat    "Please select a directory where I shall copy the "
    "documentation of the UnixDirs program to. You're "
    "completely free in your choice."
))

(set #which-prefs
(cat    "Which ViNCEd configuration do you want to install?"
))

(set #which-prefs-help
(cat    "Please select one of the ViNCEd configurations listed below: "
    "The \"Default Prefs\" are the ViNCEd factory defaults, "
    "\"My Prefs\" are the settings I work with, "
    "\"XTerm like\" is what in my experience most people prefer. "
    "\"none\" means that no preferences will be installed; this means "
    "that ViNCEd will use the factory defaults unless there are "
    "still old preferences available that should not be overwritten.\n"
    "Most of these settings might still require some adjustments for "
    "your personal style, however. Use the \"SetVNC\" program in the "
    "Prefs drawer of your system to change these settings when the "
    "installation is complete."
))

(set #prefs-standard
(cat    "Default Configuration"
))

(set #prefs-mine
(cat    "My Configuration"
))

(set #prefs-xterm
(cat    "XTerm like"
))

(set #prefs-none
(cat    "none"
))

(set #patch-more-pi
(cat    "Should I patch a bug in the More command?"
))

(set #patch-more-help
(cat    "The More program disables iconfication of the ViNCEd window "
    "it was started in. This patch fixes the problem for the 40.3 "
    "version of More and updates the version to 40.4."
))

(set #where-more
(cat    "Please locate the More command:"
))

(set #where-more-help
(cat    "Please select the More command with the file requester. You "
    "will usually find it in the \"Utilities\" drawer of your "
    "system partition.\n"
    #patch-more-help
))

(set #install-named-pi
(cat    "Should I install the NamedConsoleHandler?"
))

(set #install-named-help
(cat    "The NamedConsoleHandler works around a feature of the Os "
    "releases 2.0 and 2.1 which breaks the ^Z key for ViNCEd. "
    "There's no need to install it for Os 3.0 and 3.1, though. "
))

(set #install-named-where
(cat    "Where to install the NamedConsoleHandler?"
))

(set #install-named-where-help
(cat    "The NamedConsoleHandler should usually go to the L: drawer "
    "of your boot partition, where all other handlers are kept "
    "as well.\n"
    #install-named-help
))

(set #install-named-icon
(cat    "Where to keep the NamedConsole mount icon?"
))

(set #install-named-icon-help
(cat    "The NamedConsoleHandler mount icon should usually go to "
    "DEVS:DosDrivers, where all other mount icons are kept. "
    "To enable the ^Z feature of ViNCEd for Os releases 2.0 and "
    "2.1, this icon must be mounted during startup.\n"
    #install-named-help
))

(set #exit-not-found
(cat    "Unable to find your file \"%s\" - DOS error %ld "
    "- installation aborted. "
))

(set #exit-text
(cat    "Installation of ViNCEd done. You should reboot now.\n"
    "Hope you enjoy ViNCEd as much as I do..."
))

;=============================================================================
;###german###
; German strings

(if (= @language "deutsch")
(
(set #default_lang 2)

(set #yes "Ja")
(set #no  "Nein")

(set #which-disk
(cat "Auf welcher Diskette oder Festplatte soll ViNCEd "
     "installiert werden?"
))

(set #which-disk-help
(cat "Hier können Sie wählen, auf welchem Gerät "
     "die ViNCEd-Dateien installiert werden sollen. "
     "Sie sollten normalerweise an dieselbe Stelle installiert werden "
     "wie die Workbench-Dateien, also auf die "
     "Boot-Partition bzw. Diskette.\n\n"
     @askdir-help
))

(set #no-assign
(cat "\nDas Ziel muß ein Systemlaufwerk sein. Die Ordner S,DEVS,LIBS "
     "und C müssen dort vorhanden sein.\n\n"
))

(set #old-name
(cat "ALT"
))

(set #move-old
(cat "\n\nSollen folgende Dateien zur Sicherheit in die "
     "Schublade \"%s\" kopiert werden?\n\n%s"
))

(set #exit-not-decoded
(cat "Das SetVNC Programm kann nicht entkodiert werden. Bitte benachrichtigen "
     "Sie mich unter [e-mail]."
))

(set #move-old-help
(cat "\nDie Installation von ViNCEd ersetzt die einige der bisherigen "
     "Workbench-Dateien, so die Startup- und MountList Files. "
     "Damit alle Ergänzungen, die Sie früher an diesen Dateien "
     "vorgenommen haben, nicht verloren gehen, werden sie bei der "
     "Installation in die Schublade \"%s\" kopiert, woher Sie "
     "sie später zurückholen können."
))

(set #move-old-1
(cat "Kopieren"
))

(set #move-old-2
(cat "Überspringen"
))


(set #ask-vnc
(cat "Bitte wählen Sie den ViNCEd Quellordner aus:"
))

(set #ask-vnc-help
(cat "Bitte wählen Sie hier den Ordner aus, in den Sie das "
     "ViNCEd-Archiv entpackt haben. Die von mir gewählte "
     "Voreinstellung sollte in (fast) allen Fällen funktionieren, "
     "bemühen Sie sich also nicht eine andere auszuwählen.\n\n"
     @askdir-help
))

(set #do-mount
(cat    "Sollen die Mount-Einträge für den ViNCEd Handler kopiert werden?"
))

(set #mount-help
(cat    "Falls Sie ViNCEd als einen Shell-Fester Treiber verwenden "
    "möchten, muß es als ein Gerät vorher angemeldet werden, "
    "ebenso wie die RAD Ramdisk oder eine Festplatte. "
    "Die hierfür notwendigen Informationen befinden sich "
    "in Mount-Einträgen, die zu der Systemliste der Geräte "
    "hinzugefügt werden. Sie sollten hier mit JA antworten, "
    "denn es ist recht witzlos, ViNCEd nicht als ein Gerät "
    "anzumelden."
))

(set #modify-startup
(cat    "Wollen Sie ViNCEd beim Hochfahren des Systems automatisch einbinden?"
))

(set #modify-startup-help
(cat    "Das einzufügende Kommando ist \"%s\"\n\n"
    "Damit wird ViNCEd in das System eingebunden."
))

(set #override-con
(cat    "Soll der CON:-handler durch ViNCEd ersetzt werden?"
))

(set #override-help
(cat    "Durch ein zusätzliches Kommando in der Startup-sequence "
    "kann ViNCEd so konfiguriert werden, daß es den System-"
    "Fenstertreiber CON: ersetzt. Dies führt dazu, daß alle "
    "Programme, die ein Konsolenfenster öffnen, etwa ARexx, "
    "Ed und einige mehr, stattdessen ein komfortableres "
    "ViNCEd Fenster erhalten. Falls Sie diese Option einstellen "
    "möchten, sollten Sie aber das Flag "
    "\"Shell Modus als Voreinstellung\" im Voreinsteller nicht "
    "anwählen. Schauen Sie bitte auch in den Guide, um mehr "
    "hierüber zu erfahren."
))

(set #which-name
(cat    "ViNCEd unter welchem Namen einbinden?"
))

(set #which-name-help
(cat    "ViNCEd kann als VNC: oder als NEWCON: in das System eingebunden "
    "werden. Der Handler funktioniert unter beiden Namen gleich "
    "gut, aber unter Workbench 1.3 sollten Sie NEWCON: verwenden, "
    "um den Betriebssystemtreiber zu ersetzen."
))

(set #copy-lib
(cat    "Soll die vnc.library in den LIBS:-Ordner kopiert werden?"
))

(set #copy-lib-help
(cat    "Die vnc.library ist eine Funktionsbibliothek und stellt "
    "das Herz des gesamten ViNCEd Systems dar, ohne die nichts "
    "funktioniert. Sie enthält den Fenstertreiber, ohne den "
    "die ganze Installation recht witzlos wird."
))

(set #copy-setvnc
(cat    "Soll das SetVNC Programm in die C:-Schublade kopiert werden?"
))

(set #copy-setvnc-help
(cat    "Das SetVNC Programm ist der Voreinsteller für ViNCEd. "
    "Es enthält nicht nur eine graphische Oberfläche für die "
    "Voreinstellungen, sondern auch Funktionen für die Job-"
    "Kontrolle. Schauen Sie bitte in die Anleitung, um mehr "
    "über dieses Programm herauszufinden."
))

(set #do-locale
(cat    "Welche Übersetzungen sollen installiert werden?"
))

(set #locale-help
(cat    "ViNCEd beherrscht verschiedene Sprachen, benötigt aber "
    "dafür Katalogfiles, die als Teil der Installation in "
    "den LOCALE: Ordner kopiert werden. Bitte wählen Sie hier "
    "aus, welche Sprachen Sie installieren wollen."
))

(set #do-prefs
(cat    "Soll das Voreinsteller-Icon installiert werden?"
))

(set #prefs-help
(cat    "Dieses Piktogramm wird in den Prefs-Ordner kopiert "
    "und ruft das SetVNC-Programm als Voreinsteller von "
    "ViNCEd auf. Sie können dann mit einer netten graphischen "
    "Benutzeroberfläche die Voreinstellungen des ViNCEd-Systems "
    "Ihren Bedürfnissen anpassen."
))

(set #copy-help
(cat    "Möchten Sie die ViNCEd Online-Dokumentation installieren?"
))

(set #copy-help-help
(cat    "Der ViNCEd Guide ist eine vollständige Dokumentation des "
    "Fenstertreibers und des Einstellungsprogrammes SetVNC. "
    "Er wird aufgerufen, wenn Sie in der Shell die Help Taste "
    "oder einen Hilfe-Knopf im Voreinsteller drücken. "
    "Falls Ihre Platte nicht wirklich voll ist, sollten Sie "
    "diese Anleitung auch installieren."
))

(set #help-dir
(cat    "Bitte wählen Sie den Ordner, in den der Guide "
    "installiert werden soll:"
))

(set #help-help
(cat    "ViNCEd besitzt eine Online-Hilfe, die mittels Commodores AmigaGuide "
    "oder Multiview Programmes Hilfestellung bei der Arbeit mit ViNCEd bietet. Geben Sie "
    "hier an, in welchen Order der Datensatz kopiert werden soll."
))

(set #do-docs
(cat    "Sollen die ViNCEd Include-Dateien installiert werden?"
))

(set #docs-where
(cat    "In welchen Ordner sollen die Include-Files installiert werden:"
))

(set #docs-help
(cat    "Wenn Sie alle Möglichkeiten ViNCEds nutzen wollen, so benötigen "
    "Sie zum Erstellen von Programmen, die ViNCEd aufrufen, "
    "die Include-Files und die Link-Libraries. "
    "Sie sollten dann ViNCEd durch die stub-Funktionen "
    "dieser Link-Libraries aufrufen. "
))

(set #browser-where
(cat    "Bitte wählen Sie ihr favorisiertes AmigaGuide - Anzeigeprogramm:"
))

(set #browser-help
(cat    "Wählen Sie hier bitte ein Programm, mit dem man sich AmigaGuide "
    "Dateien anzeigen lassen kann. Dies sollte der AmigaGuide oder "
    "das Programm Multiview sein. Als letzen Ausweg kann hier "
    "MORE oder Ed angegeben werden. Diese Programme finden Sie "
    "in der Utilities oder C: Schublade Ihrer Workbench-Diskette."
))

(set #do-scripts
(cat    "Sollen die Shell-Skripte installiert werden?"
))

(set #scripts-help
(cat    "Zwei dieser Skripte ersetzen die SetFont und SetKeyboard Kommandos "
    "durch ViNCEd kompatible Shell-Skripte. Drei weitere Skripte "
    "dienen als Abkürzung für die Job-Kontrollfunktionen der "
    "VNC Bibliothek."
))

(set #where-scripts
(cat    "Wohin sollen die Skripte kopiert werden?"
))

(set #where-scripts-help
(cat    "Shell-Skripte gehören für gewöhnlich in den S:-Ordner Ihrer "
    "Boot-Platte, wo sie auch von der Shell gefunden werden können. "
    "Natürlich können Sie die Skripte auch an andere Stellen kopieren, "
    "jedoch sollten sie dort auch von der Shell gefunden werden, da sie "
    "sonst recht nutzlos sind."
))

(set #where-setvnc
(cat    "Bitte wählen Sie das Verzeichnis, in das das "
    "SetVNC-Programm installiert werden soll:"
))

(set #where-setvnc-help
(cat    "SetVNC ist das ViNCEd Kontrollprogramm und der "
    "Voreinsteller, alles in einer Datei. Es sollte "
    "für gewöhnlich in das C:-Verzeichnis installiert "
    "werden. Ich emfehle, es NICHT in Prefs zu installieren."
))

(set #where-locale
(cat    "Wohin sollen die Katalogdateien installiert werden? "
    "(Ein Verzeichnis namens VNC wird erzeugt):"
))

(set #where-locale-help
(cat    "Bitte wählen Sie hier das Verzeichnis, in das die "
    "Katalogdateien kopiert werden sollen, d.h. diejenigen "
    "Dateien, die die Übersetzungen von VNC in diverse Sprachen "
    "enthalten. Ein Verzeichnis namens VNC wird an der von Ihnen "
    "ausgewählten Stelle erzeugt. Für gewöhnlich ist die "
    "Voreinstellung gut genug."
))

(set #where-devs
(cat    "Wohin sollen die Mount-Icons installiert werden?"
))

(set #where-devs-help
(cat    "Die Mount-Icons werden benötigt, um den ViNCEd-Handler "
    "beim Hochfahren des Systems anzumelden. Sie werden beim "
    "Booten vom Mount-Kommando in der startup-sequence gelesen. "
    "Diese Icons sollten üblicherweise in das DEVS/DosDrivers "
    "Verzeichnis installiert werden."
))

(set #where-prefs
(cat    "Wo soll das Piktogramm des Voreinstellers installiert "
    "werden ?"
))

(set #where-prefs-help
(cat    "Bitte wählen Sie hier ein Verzeichnis, in das das "
    "Piktogramm des Voreinstellers installiert werden soll. Dies sollte "
    "üblicherweise das Prefs-Verzeichnis Ihrer Systempartition "
    "sein. Es ist übrigens nicht nötig, daß das SetVNC-Programm "
    "in das gleiche Verzeichnis wie sein Piktogramm installiert "
    "wird."
))

(set #where-archive
(cat    "Wohin sollen die Voreinstellungsdateien installiert werden?"
))

(set #where-archive-help
(cat    "Bitte wählen Sie ein Verzeichnis, in das die Voreinstellungsdateien "
    "installiert werden sollen. Dies sollte üblicherweise das ENVARC: "
    "Verzeichnis Ihres Systems sein."
))

(set #where-rexx
(cat    "Bitte spezifizieren Sie das Verzeichnis, in der sich die "
    "rexxsyslib.library befindet:"
))

(set #where-rexx-help
(cat    "Bitte geben Sie hier das Verzeichnis an, in dem sich die "
    "rexxsyslib.library befindet; dies sollte üblicherweise das "
    "LIBS-Verzeichnis Ihrer Boot-Diskette sein.\n"
    "Ich benötige diese Angaben, um festzustellen, ob es sich "
    "womöglich um eine ältere Version von ARexx handelt, die "
    "einen Bug enthält, den ich mit einem Patch entfernen "
    "könnte. Sie werden gleich nocheinmal gefragt, ob Sie diesen "
    "Patch wünschen - was ich aber emfehlen möchte."
))

(set #replace-old
(cat    "Soll ich die neuen 3.6x Einstellungen installieren und "
    " die alten 3.5x Einstellungen ersetzen?"
))

(set #replace-old-help
(cat    "Ich habe die alten Einstellungsfiles in Ihrem ENVARC:sys "
    "Verzeichnis gefunden. Die neuen Versionen von ViNCEd können "
    "diese zwar immer noch lesen, aber die Unterstützung hierfür "
    "wird in einer der nächsten Versionen entfernt werden. "
    "Nicht alle der alten Flags werden von der neuen Version auch "
    "respektiert, einige Details müssen vermutlich neu eingestellt "
    "werden. Falls Sie eine neue Voreinstellungsdatei installieren, "
    "gehen die alten Einstellungen nicht verloren, sie verbleiben "
    "an ihrem ursprünglichen Platz; sie werden jedoch von ViNCEd "
    "ignoriert, solange eine neuere Version gefunden wird. Falls Sie, "
    "nach erfolgreicher Installation wieder Ihre alten Einstellungen "
    "verwenden möchten, könnten Sie einfach die ENVARC:ViNCEd.prefs "
    "Datei löschen. Vergessen Sie aber bitte nicht, irgendwann einmal "
    "\"SetVNC\" zu starten, denn die Unterstüzung für das alte Format "
    "wird nicht ewig erhalten bleiben."
))

(set #copy-icon
(cat    "Soll das Shell-Icon ersetzt werden?"
))

(set #copy-icon-help
(cat    "Falls Sie ViNCEd als Shell-Editor verwenden möchten, sollten "
    "sie das System-Icon durch das mitgeliferte Icon ersetzen, "
    "das als Shell-Fenster ein ViNCEd Pfad verwendet."
))

(set #where-shell
(cat    "Bitte spezifizieren Sie den Ordner, in dem sich das Shell-Icon "
    "befindet:"
))

(set #where-shell-help
(cat    "Falls Sie das Shell-Icon wirklich ersetzen wollen, müssen Sie "
    "hier angeben, wo es sich befindet. Dies ist üblicherweise "
    "das Hauptverzeichnis des Boot-Gerätes oder der Systems "
    "Ordner auf dem gleichen Gerät. Bitte beachten Sie, daß "
    "die Schublade benötigt wird und nicht das Icon selbst."
))

(set #where-lib
(cat    "Bitte wählen Sie das Verzeichnis, in das die "
    "vnc.library installiert werden soll:"
))

(set #where-lib-help
(cat    "Die vnc.library ist die Hauptbibliothek von "
    "ViNCEd, sie enthält alle Handler-Funktionen. Ohne sie "
    "geht gar nichts. Sie sollten sie für gewöhnlich in Ihr "
    "LIBS:-Verzeichnis installieren."
))

(set #do-patch
(cat    "Soll ein Fehler aus der ARexx Bibliothek entfernt werden?"
))

(set #patch-help
(cat    "The rexxsyslib.library Funktion WaitDosPacket hat einen Fehler, "
    "der manche anderen Programme abstürzen lassen kann. Dies ist "
    "kein spezifisches Problem von ViNCEd! Sie sollten diesen Patch "
    "installieren, um die Bibliothek zu reparieren."
))

(set #copy-stringsnip
(cat    "Soll das StringSnip-Kommand kopiert werden?"
))

(set #install-stringsnip
(cat    "Soll StringSnip beim Hochfahren gestartet werden?"
))

(set #stringsnip-help
(cat    "Stringsnip ist ein kleines Hilfsprogramm, das, einmal "
    "installiert, die Edier-Möglichkeiten der String-Gadgets "
    "entschieden verbessert. Zum einen werden Clipboard-Funktionen "
    "wie Amiga-C (Kopieren) Amiga-X (Ausschneiden) und Amiga-V "
    "(Clipboard-Inhalt einfügen) unterstützt, zum anderen werden "
    "Cursortastenkombinationen vergleichbar mit denen von ViNCEd "
    "zur Verfügung gestellt. StringSnip funktioniert auch unabhängig "
    "von ViNCEd und sollte als nützliches Tool installiert "
    "werden."
))

(set #where-stringsnip
(cat    "Wo soll StringSnip installiert werden?"
))

(set #where-stringsnip-help
(cat    "Bitte wählen Sie ein Verzeichnis aus, in das ich "
    "StringSnip kopieren soll und von wo aus es beim "
    "Hochfahren des Systems gestartet werden kann. Dies "
    "sollte üblicherweise das C:-Verzeichnis Ihrer "
    "Boot-Diskette sein.\n"
    #stringsnip-help
))

(set #copy-multiassigns
(cat    "Soll das TrueMultiAssigns Kommando kopiert werden?"
))

(set #install-multiassigns
(cat    "Soll der TrueMultiAssigns Patch beim Hochfahren "
    "gestartet werden?"
))

(set #multiassigns-help
(cat    "Das TrueMultiAssigns Programm korrigiert the AmigaDOS "
    "Jokerzeichen derart, daß sie korrekt mit Mehrfach-Assigns "
    "zusammenarbeiten. "
    "Der TAB Expansion Cache von ViNCEd benötigt diesen Patch, "
    "installieren sie ihn daher bitte. "
    "Zur Behebung der Probleme mit Mehrfach-Assigns können einige "
    "Programme auf dem AmiNet gefunden werden, jedoch sind alle, "
    "die ich getestet habe, mehr oder minder defekt, wie z.B. "
    "MultiCX oder auch das alte TrueMultiAssigns 1.02 von "
    "Marcus Wild, und funktionieren darum nicht korrekt mit "
    "ViNCEd. Ich emfehle Ihnen, meinen Patch zu verwenden, "
    "denn er wurde erfolgreich mit ViNCEd getestet."
))

(set #where-multiassigns
(cat    "Wo soll ich TrueMultiAssigns installieren?"
))

(set #where-multiassigns-help
(cat    "Bitte wählen Sie ein Verzeichnis aus, in das ich das "
    "TrueMultiAssigns-Programm installieren soll. Es wird von "
    "dort beim Hochfahren des Systems gestartet. Dieses "
    "Verzeichnis sollte üblicherweise das C:-Verzeichnis Ihrer "
    "Boot-Diskette sein.\n"
    #multiassigns-help
))

(set #copy-tbiclass
(cat     "Soll die Titlebar-Klasse installiert werden?"
))

(set #where-tbiclass
(cat    "Wo soll die Titlebar-Klasse installiert werden?"
))

(set #copy-tbiclass-help
(cat    "Die Titlebar-Klasse, geschrieben von Massimo Tantignone und "
    "freundlicherweise mit seiner Erlaubnis in diesem Archiv enthalten, "
    "beinhaltet die Knöpfe, die ViNCEd in der Titelleiste des Fensters "
    "anzeigt, etwa für die Makros oder für das Ikonifizierungsgadget. "
    "Diese Klasse ist KEIN MUSS. ViNCEd funktioniert auch ohne sie und "
    "wird in diesem Falle die entsprechenden Graphiken selbst erzeugen. "
    "Es ist damit eine Frage des persönlichen Geschmackes, ob Sie die "
    "ViCNEd-Voreinstellungen oder Massimos Graphiken bevorzugen.\n"
    "Diese Klasse wird auch nicht benötigt, wenn Sie bereits "
    "VisualPrefs installiert haben, denn sie wird ebenfalls von diesem "
    "Programm erzeugt."
))

(set #where-tbiclass-help
(cat    "Die Titlebar-Klasse sollte üblicherweise zu allen anderen "
    "Image-Klassen kopiert werden, nämlich nach "
    "\"SYS:Classes/Images/titlebar.image\".\n"
    "Es gibt üblicherweise kaum einen Grund, sie an eine andere "
    "Stelle zu kopieren, aber beachten Sie bitte, daß ViNCEd "
    "sie unter dem Namen \"images/titlebar.image\" zu Öffnen "
    "versucht, ein Verzeichnis namens \"images\" ist daher ein Muß.\n"
    #copy-tbiclass-help
))

(set #copy-unixdirs
(cat    "Soll das UnixDirs Kommando installiert werden?"
))

(set #install-unixdirs
(cat    "Soll UnixDirs beim Booten gestartet werden?"
))

(set #unixdirs-help
(cat    "Dieses hilfreiche Programm, entwickelt von Timo Kaikuma, bringt "
    "dem Amiga DOS Unix-artige Verzeichnisnamen bei. Um ein paar "
    "Beispiele zu nennen, kann der Punkt (.) nun als Abkürzung für "
    "die augenblickliche Directory und der doppelte Punkt (..) als "
    "Name des übergeordneten Verzeichnisses verwendet werden. Ebenso "
    "ist der Schrägstrich nun ein Ersatz für das Wurzelverzeichnis. "
    "Per Voreinstellung ist der Stern (*) nun auch ein gültiges "
    "Jokerzeichen, das die sonst übliche #? Sequenz ersetzt.\n"
    "Dank geht an Timo, der mir erlaubte, UnixDirs hier erneut "
    "zu veröffentlichen."
))

(set #where-unixdirs
(cat    "Wo soll das UnixDirs-Programm installiert werden?"
))

(set #where-unixdirs-help
(cat    "Bitte wählen Sie ein Verzeichnis aus, in das das "
    "UnixDirs-Programm installiert werden soll. Dies sollte "
    "üblicherweise das C:-Verzeichnis Ihrer Boot-Diskette sein, "
    "von wo aus es beim Hochfahren des System geladen "
    "werden kann.\n"
    #unixdirs-help
))

(set #copy-uxhelp
(cat    "Soll der UnixDirs-Guide installiert werden?"
))

(set #copy-uxhelphelp
(cat    "Dies ist die Dokumentation des UnixDirs "
    "Programmes von Timo Kaikumaa. Sie sollten sie "
    "ebenfalls installieren, es sei denn, Sie haben "
    "wirklich keinen freien Plattenplatz mehr."
))

(set #where-uxhelp
(cat    "Wo soll der UnixDirs-Guide installiert werden?"
))

(set #where-uxhelp-help
(cat    "Bitte wählen Sie ein Verzeichnis aus, in das die "
    "Anleitung des UnixDirs-Programmes installiert werden "
    "soll. Sie sind hierbei ganz frei in Ihrer Wahl."
))

(set #copy-topaz6
(cat    "Soll der topaz6-Zeichensatz installiert werden?"
))

(set #copy-topaz6-help
(cat    "Der topaz6 Zeichensatz ist ein 6x8 Zeichensatz, der den "
    "XEN.8-Font ersetzt. Entgegen dem XEN-Zeichensatz, der ein "
    "Proportionalzeichensatz ist und darum für ViNCEd ungeeignet "
    "ist, funktioniert der topaz6.8 problemlos. Der Zeichensatz ist "
    "vollständig und enthält alle Sonderzeichen des LATIN-ANSI "
    "Zeichensatzes."
))

(set #where-topaz6
(cat    "Wo soll der topaz6-Zeichensatz installiert werden?"
))

(set #where-topaz6-help
(cat    "Bitte wählen Sie ein Verzeichnis, in das ich die Zeichensatz-"
    "Dateien installieren soll. Dies sollte üblicherweise das "
    "FONTS:-Verzeichnis Ihrer Boot-Diskette sein, oder jedes andere "
    "Verzeichnis, wo der Zeichensatz vom System gefunden werden "
    "kann.\n"
    #copy-topaz6-help
))

(set #which-prefs
(cat    "Welche Konfiguration installieren?"
))

(set #prefs-standard
(cat    "Standard-Konfiguration"
))

(set #prefs-mine
(cat    "Meine Konfiguration"
))

(set #prefs-xterm
(cat    "XTerm-artige Konfiguration"
))

(set #prefs-none
(cat    "keine"
))

(set #which-prefs-help
(cat    "Bitte wählen Sie eine der ViNCEd-Konfigurationen oben aus: "
    "Die \"Standard-Konfiguration\" besteht aus der ViNCEd-internen, "
    "eingebauten Einstellung, \"Meine Konfiguration\" ist die "
    "Konfiguration, mit der ich selbst arbeite, die "
    "\"XTerm-artige Konfiguration\" ist das, was meiner Erfahrung nach "
    "die meisten Leute bevorzugen. \"keine\" bedeutet, daß keine "
    "Voreinstellungen installiert werden. ViNCEd verwendet dann die "
    "eingebauten Einstellungen, es sei denn, es befinden sich noch "
    "Eintellungen von der letzten Installation im System, die dann "
    "nicht überschrieben werden.\n"
    "Die meisten Einstellungen benötigen "
    "natürlich noch einige kleine Anpassungen an Ihren persönlichen "
    "Stil; verwenden Sie dazu das \"SetVNC\"-Programm in dem "
    "Prefs-Verzeichnis, sobald die Installation beendet ist."
))

(set #patch-more-pi
(cat    "Soll ich einen Bug im More-Kommando beheben?"
))

(set #patch-more-help
(cat    "Das More-Kommando verhindert die Ikonifizierung des "
    "ViNCEd-Fensters, in dem es abläuft. Dieser Patch "
    "behebt das Problem für die 40.3 Version von More und "
    "installiert eine 40.4 Version des Kommandos."
))

(set #where-more
(cat    "Bitte wählen Sie das More Kommando:"
))

(set #where-more-help
(cat    "Bitte wählen Sie das More-Kommando mit dem File-Requester aus. "
    "Sie werden es üblicherweise im \"Utilities\"-Ornder Ihrer "
    "System-Partition finden."
    #patch-more-help
))

(set #install-named-pi
(cat    "Soll ich den NamedConsoleHandler installieren?"
))

(set #install-named-help
(cat    "Der NamedConsoleHandler behebt ein Problem der Os-Versionen "
    "2.0 und 2.1, das verhindert, daß die ^Z-Taste für diese "
    "Versionen korrekt funktioniert. Dieser Handler braucht für "
    "Os 3.0 und 3.1 nicht installiert zu werden."
))

(set #install-named-where
(cat    "Wohin soll der NamedConsoleHandler installiert werden?"
))

(set #install-named-where-help
(cat    "Der NamedConsoleHandler sollte üblicherweise in den L: "
    "Ornder Ihrer Systempartition installiert werden, zusammen "
    "mit allen anderen Handlern.\n"
    #install-named-help
))

(set #install-named-icon
(cat    "Wohin soll das NamedConsole-Icon gelegt werden?"
))

(set #install-named-icon-help
(cat    "Das Mount-Icon des NamedConsoleHandlers sollte üblicherweise "
    "dort abgelegt werden, wo sämtliche Mount-Icons des Systems "
    "aufgehoben werden, üblicherweise in Devs:DosDrivers. "
    "Um die ^Z-Funktion von ViNCEd für die Os-Versionen 2.0 und 2.1 "
    "verfügbar zu machen, muß dieses Icon beim Systemstart gemounted "
    "werden.\n"
    #install-named-help
))

(set #exit-not-found
(cat    "Kann das File \"%s\" nicht finden - DOS Fehler %ld "
    "- Installation abgebrochen."
))

(set #exit-text
(cat    "ViNCEd Installation beendet. Sie sollten jetzt den Rechner "
    "neu starten.\n"
    "Ich hoffe, sie mögen ViNCEd genauso wie ich..."
))

))

;==========================================================================
;###français###

(if (= @language "français")
(
(set #default_lang 4)
(set #yes "Oui")
(set #no  "Non")

(set #which-disk
(cat "Sur quel disque ViNCEd doit-il être installé ?"
))

(set #exit-not-decoded
(cat "Le programme SetVNC ne peut être décodé. Contactez l'auteur à "
     "[e-mail]."
))

(set #which-disk-help
(cat "\nCette section vous permet de choisir le disque dans lequel les fichiers "
     "de ViNCEd seront installés. Normalement, ils vont au même endroit que les fichiers "
     "du Workbench, i.e. la partition ou le disque de démarrage.\n\n"
     @askdir-help
))

(set #no-assign
(cat "\nLa destination doit être un disque système. il faut que les tiroirs S,DEVS,LIBS "
     "et C y existent.\n\n"
))

(set #old-name
(cat "ANCIEN"
))

(set #move-old
(cat "\n\nVoulez-vous garder une copie des fichiers suivants dans le tiroir "
     "\"%s\" ?\n\n%s"
))

(set #move-old-help
(cat "\nL'installation de ViNCEd va remplacer certains fichiers Workbench actuels, "
     "les fichiers Startup- et MountList. "
     "Pour préserver tout changement que vous auriez pu faire à ces fichiers, "
     "le processus d'installation les copiera dans le tiroir \"%s\" où vous pourrez "
     "les retrouver plus tard."
))

(set #move-old-1
(cat "Copier"
))

(set #move-old-2
(cat "Passer"
))

(set #ask-vnc
(cat "Veuillez localiser le répertoire source de ViNCEd :"
))

(set #ask-vnc-help
(cat "Veuillez spécifier ici le répertoire dans lequel vous avez "
     "décompressé l'archive. Le répertoire par défaut que j'ai sélectionné "
     "pour vous devrait fonctionner dans (presque) tous les cas, ne vous "
     "occupez donc pas de choisir une autre source.\n\n"
     @askdir-help
))

(set #do-mount
(cat    "Voulez-vous ajouter les fichiers de montage pour le gestionnaire ViNCEd ?"
))

(set #mount-help
(cat    "Si vous voulez installer ViNCEd comme pilote de fenêtre Shell, vous devez "
    "MONTER (commande MOUNT) ViNCEd en tant que périphérique, comme le disque "
    "virtuel RAD ou un disque dur. Les informations nécessaires pour accomplir ceci "
    "sont incluses dans les fichiers de MONTAGE, qui doivent être ajoutés à la "
    "liste de périphériques du système. Je vous conseille de répondre OUI car ne "
    "PAS monter ViNCEd est plutôt inutile. "
))

(set #modify-startup
(cat    "Voulez-vous monter ViNCEd automatiquement au démarrage ?"
))

(set #override-con
(cat    "Remplacer le gestionnaire CON: par ViNCEd?"
))

(set #override-help
(cat    "Avec une commande supplémentaire ajoutée dans la startup-sequence, "
    "ViNCEd peut être configurer pour remplacer le gestionnaire de fenêtre "
    "système de Commodore, CON:. Ceci a pour résultat d'ouvrir chaque "
    "fenêtre de console, comme celles utilisées pour ARexx, Ed et bien "
    "d'autres, en tant que fenêtre ViNCEd. Si vous choisissez de faire "
    "cela, je vous conseille de ne PAS activer le mode \"Utiliser le "
    "mode Shell par défaut\" dans l'éditeur de préférences. Lisez le "
    "guide pour plus de détails à ce sujet."
))

(set #modify-startup-help
(cat    "La commande qui va être ajoutée est \"%s\"\n\n"
    "Cela montera ViNCEd automatiquement."
))

(set #which-name
(cat    "Monter ViNCEd sous quel nom ?"
))

(set #which-name-help
(cat    "ViNCEd peut être monté en tant que VNC: ou NEWCON:. "
    "Il marche parfaitement sous ces deux noms, mais vous devriez "
    "utiliser NEWCON: avec le Workbench 1.3 pour remplacer le gestionnaire "
    "de fenêtre système."
))

(set #copy-lib
(cat    "Voulez-vous copier la vnc.library dans le tiroir LIBS: ?"
))

(set #copy-lib-help
(cat    "La vnc.library est le coeur du pilote de fenêtre ViNCEd et contient "
    "le gestionnaire lui-même. Le gestionnaire de fenêtre ne fonctionnera pas "
    "sans lui, et ne pas l'installer rend toute l'installation inutile."
))

(set #copy-setvnc
(cat    "Voulez-vous copier le programme de contrôle SetVNC "
    "dans le tiroir C: ?"
))

(set #copy-setvnc-help
(cat    "Le programme SetVNC joue le rôle d'un programme de préférences "
    "pour le système ViNCEd. Il offre non seulement un éditeur de préférences "
    "complet, mais aussi des fonctions pour le contôle des travaux. Veuillez "
    "consulter le guide pour en savoir plus sur ce programme."
))

(set #do-locale
(cat    "Quels langues voulez-vous installer ?"
))

(set #locale-help
(cat    "ViNCEd peut être localisé pour différentes langues. Cochez ici toutes "
    "les langues que vous voulez installer. Les données de localisation "
    "nécessaires seront alors copié dans votre système par le processus "
    "d'installation, plus précisément dans le tiroir LOCALE:."
))

(set #do-prefs
(cat    "Voulez-vous installer l'icône de préférences ?"
))

(set #prefs-help
(cat    "Cette icône sera copiée dans votre tiroir Prefs et invoquera "
    "l'éditeur de préférences de ViNCEd, le programme SetVNC. "
    "Une belle interface graphique vous permettra alors de régler "
    "les paramètres de ViNCEd."
))

(set #copy-help
(cat    "O.K. pour l'installation du guide en ligne de ViNCEd ?"
))

(set #copy-help-help
(cat    "Le guide de ViNCEd est une documentation complète du gestionnaire "
    "et de l'éditeur de préférences, SetVNC. Il est appelé par la touche "
    "Help dans le shell ou par un bouton Aide dans l'éditeur de préférences. "
    "Si vous n'êtes pas vraiment en pénurie d'espace disque, vous devriez "
    "l'installer."
))

(set #help-dir
(cat    "Veuillez sélectionner le tiroir où installer le guide:"
))

(set #help-help
(cat    "ViNCEd est fourni avec un guide d'aide en ligne, utilisant le programme "
    "AmigaGuide ou Multiview de Commodore. Sélectionnez donc le tiroir dans "
    "lequel cette base de donnée sera copiée."
))

(set #do-docs
(cat    "Voulez-vous installer les fichiers d'inclusion de ViNCEd ?"
))

(set #docs-where
(cat    "Veuillez sélectionner le tiroir pour les fichiers d'inclusion et les "
    "bibliothèques de liens:"
))

(set #docs-help
(cat    "Si vous voulez utiliser toutes les fonctionnalités de ViNCEd, il vous "
    "faut les fichiers d'inclusion du C et de l'assembleur pour écrire vos "
    "programmes appelant ViNCEd. Il est recommander d'utiliser les routines "
    "de sas (stub) des bibliothèques de liens pour cela."
))

(set #browser-where
(cat    "Veuillez sélectionner votre lecteur AmigaGuide favori:"
))

(set #browser-help
(cat    "Veuillez sélectionner un programme qui puisse afficher les fichiers "
    "AmigaGuide. C'est normalement AmigaGuide ou Multiview. En dernier "
    "ressort, choisissez MORE ou Ed, qui se trouvent dans le tiroir "
    "Utilities ou C: de votre disque Workbench."
))

(set #do-scripts
(cat    "Voulez-vous installer les scénarios shell ?"
))

(set #scripts-help
(cat    "Ces scénarios remplacent les commandes SetFont et SetKeyboard de manière "
    "compatible avec ViNCEd. Trois autres petits scénarios sont des raccourcis utiles "
    "pour les fonctions de contrôle de travaux."
))

(set #where-scripts
(cat    "Où dois-je copier les scénarios ?"
))

(set #where-scripts-help
(cat    "Les scénarios Shell doivent généralement être placés dans le répertoire "
    "S de votre périphérique de démarrage, où ils seront trouvés par le shell "
    "par défaut. Cependant, si vous préférez un endroit différent, allez-y, mais "
    "assurez-vous que le shell peut les trouver, ou ils seront inutiles."
))

(set #where-setvnc
(cat    "Veuillez sélectionner le répertoire où installer le programme "
    "SetVNC :"
))

(set #where-setvnc-help
(cat    "Le programme SetVNC est le programme de contrôle de ViNCEd et son "
    "éditeur de préférences, tout en un. Il va généralement dans le répertoire "
    "C:. Je vous recommande de ne PAS le mettre dans Prefs."
))

(set #where-locale
(cat    "Où dois-je installer les fichiers catalogues ? (Un répertoire "
    "VNC sera créé):"
))

(set #where-locale-help
(cat    "Veuillez sélectionner le répertoire dans lequel je copierai "
    "les fichiers catalongues, c'est-à-dire les fichiers contenant "
    "les traductions de ViNCEd dans différentes langues. Un répertoire "
    "nommé VNC sera créé pour vous à l'endroit que vous aurez sélectionné. "
    "En général, la valeur par défaut convient parfaitement."
))

(set #where-devs
(cat    "Où vouslez-vous installer les icônes de montage ?"
))

(set #where-devs-help
(cat    "Les icônes de montages sont nécessaires pour monter le gestionnaire "
    "de ViNCEd au démarrage. Elles sont lues pendant la startup-sequence "
    "par la commande Mount, lors du démarrage. Ces icônes vont normalement "
    "dans le répertoire DEVS:DosDrivers."
))

(set #where-prefs
(cat    "Où dois-je installer l'icône de préférences ?"
))

(set #where-prefs-help
(cat    "Veuillez sélectionner le répertoire dans lequel copier l'icône "
    "de SetVNC. C'est normalement le tiroir Prefs de votre système. "
    "Au fait, il n'est pas nécessaire que le programme SetVNC se trouve "
    "dans le même répertoire que son icône."
))

(set #where-archive
(cat    "Où dois-je installer les réglages de préférences ?"
))

(set #where-archive-help
(cat    "Veuillez sélectionner le répertoire où de dois copier le fichier "
    "de réglage de préférences. C'est normalement l'assignation ENVARC: "
    "de votre système."
))

(set #where-rexx
(cat    "Veuillez sélectionner le répertoire contenant la rexxsyslib.library: "
))

(set #where-rexx-help
(cat    "Veuillez sélectionner le répertoire contenant la rexxsyslib.library. "
    "Ce fichier se trouve généralement dans le tiroir LIBS de votre disque de "
    "démarrage.\n"
    "J'ai besoin de cette information pour savoir si la rexxsyslib.library est "
    "une ancienne version bugguée sur laquelle je peux appliquer un patch pour "
    "réparer. Je vous poserai la question séparément pour le patch."
))

(set #replace-old
(cat    "Installer les nouveaux réglages 3.6x et remplacer les anciennes préférences 3.5x ?"
))

(set #replace-old-help
(cat    "J'ai trouvé des anciens réglages de préférences dans votre tiroir "
    "ENVARC:sys. Les nouvelles versions de ViNCEd sont toujours capables "
    "de lire l'ancien format, mais cette capacité sera enlevée dans l'une "
    "des prochaines distributions. Tous les anciens drapeaux ne seront pas "
    "respectés, cependant, par la nouvelle version de ViNCEd, certains détails "
    "devront être reconfigurés. Si vous installez un nouveau fichier de préférences, "
    "les anciens réglages seront toujours conservés à l'endroit original, donc "
    "rien n'est perdu; mais ils seront ignorés par ViNCEd si une nouvelle version "
    "des préférences est disponible. Si, après installation, vous voulez rétablir "
    "vos anciens réglages, vous pouvez simplement effacer le fichier ENVARC:ViNCEd.prefs, "
    "mais n'oubliez pas d'exécuter le programme \"SetVNC\" après car la reconnaissance "
    "de l'ancien format ne sera pas éternelle."
))

(set #copy-icon
(cat    "Voulez-vous remplacer l'icône Shell ?"
))

(set #copy-icon-help
(cat    "Si vous voulez utiliser ViNCEd comme éditeur Shell, je vous conseille de "
    "remplacer l'icône système par celle fournie dans cette archive. Elle "
    "sélectionne un chemin ViNCEd pour la fenêtre du shell."
))

(set #where-shell
(cat    "Veuillez sélectionner le répertoire dans lequel l'icône Shell réside :"
))

(set #where-shell-help
(cat    "Si vous voulez remplacer l'icône shell par défaut, dites-moi où vous "
    "l'avez mise. Par défaut, c'est soit le répertoire racine de votre volume "
    "de démarrage, ou le tiroir System. Notez que je veux le REPERTOIRE, non "
    "le fichier!"
))

(set #where-lib
(cat    "Veuillez sélectionner le répertoire dans lequel copier la vnc.library:"
))

(set #where-lib-help
(cat    "La vnc.library est la bibliothèque principale de ViNCEd, elle contient "
    "toutes les fonctions du gestionnaire. Vous devez en général mettre cela "
    "dans votre répertoire LIBS:".
))

(set #do-patch
(cat    "Voulez-vous patcher ARexx pour corriger un bug?"
))

(set #patch-help
(cat    "La fonction WaitDosPacket de la rexxsyslib.library a un bug "
    "qui peut provoquer des plantages. Ce n'est pas un problème "
    "specifique à ViNCED, il peut aussi se présenter avec d'autres "
    "programmes. Vous devriez installer ce patch pour réparer la "
    "bibliothèque."
))

(set #copy-stringsnip
(cat    "Voulez-vous installer la commande StringSnip ?"
))

(set #install-stringsnip
(cat    "Voulez-vous installer StringSnip au démarrage ?"
))

(set #stringsnip-help
(cat    "StringSnip est un petit utilitaire qui, s'il est installé, améliore "
    "les fonctions d'édition des cellules de saisie de façon compatible "
    "avec ViNCEd. Amiga-X découpe le contenu, Amiga-C le copie et Amiga-V "
    "insère le contenu du calepin. Des combinaisons des touches de curseur "
    "similaires à celles proposées par ViNCEd rendent cet outil utile, "
    "indépendamment de ViNCEd."
))

(set #where-stringsnip
(cat    "Où voulez-vous installer la commande StringSnip ?"
))

(set #where-stringsnip-help
(cat    "Veuillez sélectionner un répertoire dans lequel je copierai "
    "l'utilitaire StringSnip et duquel il sera chargé au démarrage. "
    "Ce sera généralement le répertoire C: de votre disque de démarrage.\n"
    #stringsnip-help
))

(set #copy-multiassigns
(cat    "Voulez-vous copier la commande TrueMultiAssigns ?"
))

(set #install-multiassigns
(cat    "Voulez-vous lancer TrueMultiAssigns au démarrage ?"
))

(set #multiassigns-help
(cat    "Le programme TrueMultiAssigns est une commande de patch qui permettent "
    "aux routines de motifs de l'AmigaDOS de fonctionner correctement sur les "
    "assignations multi-répertoires. "
    "L'extension TAB de répertoires de ViNCEd s'attend à ce que ce patch soit "
    "installé, alors ajoutez-le donc à votre système. "
    "Plusieurs programmes existent pour le même travail mais tous ceux que "
    "j'ai examiné sont plus ou moins buggués, y compris MultiCX et l'ancien "
    "TrueMultiAssigns 1.02 par Marcus Wild, et ne fonctionnent pas avec ViNCEd. "
    "Je vous recommande d'utiliser mon patch car il a été testé avec ViNCEd."
))

(set #where-multiassigns
(cat    "Où dois-je installer TrueMultiAssigns ?"
))

(set #where-multiassigns-help
(cat    "Veuillez sélectionner un répertoire dans lequel copier le programme "
    "TrueMultiAssigns. Il sera chargé depuis cet endroit au démarrage. Ce "
    "sera normalement le répertoire C de votre disque de démarrage.\n"
    #multiassigns-help
))

(set #copy-tbiclass
(cat     "Voulez-vous installer la classe d'image titlebar ?"
))

(set #where-tbiclass
(cat    "Où voulez-vous installer la classe d'image titlebar ?"
))

(set #copy-tbiclass-help
(cat    "La classe d'image titlebar, écrite par Massimo Tantignone et "
    "incluses avec son aimable permission, permet de personnaliser les "
    "images de la barre de titre de ViNCEd - les boutons de macro aussi bien "
    "que la cellule d'iconification. Cette classe n'est pas un MUST, ViNCEd "
    "générera ses propres images si elle n'est pas disponible. C'est donc une "
    "question de style personnel que de préférer des images par défaut de "
    "ViNCEd ou le style des boutons d'outils de Massimo.\n"
    "Cette classe N'EST PAS NON PLUS nécessaire si vous avez déjà VisualPrefs "
    "car elle est alors automatiquement disponible."
))

(set #where-tbiclass-help
(cat    "La classe d'image titlebar va normalement avec les autres classes "
    "d'images, plus précisément dans \"SYS:Classes/Images/titlebar.image\".\n"
    "Il n'y a généralement aucune raison de la mettre ailleurs, mais souvenez-vous "
    "que ViNCEd tente d'ouvrir cette classe sous \"images/titlebar.image\" "
    "donc un sous-répertoire nommé \"images\" est OBLIGATOIRE.\n"
    #copy-tbiclass-help
))

(set #copy-unixdirs
(cat    "Voulez-vous installer la commande UnixDirs ?"
))

(set #install-unixdirs
(cat    "Voulez-vous lancer UnixDirs au démarrage ?"
))

(set #unixdirs-help
(cat    "Cet excellent programme, développé par Timo Kaikumaa, ajoute "
    "l'adressage des répertoires dans le style d'unix à l'AmigaOS. "
    "Par exemple, le point (.) peut être utilisé pour se référer au "
    "répertoire courant, le double point (..) désigne le répertoire "
    "parent et le slash unique se réfère au répertoire racine. Par "
    "défaut, l'étoile (*) devient aussi un caractère de motif légal, "
    "remplaçant la séquence #? habituelle.\n"
    "Merci à Timo pour m'avoir permis de redistribuer son patch."
))

(set #where-unixdirs
(cat    "Où voulez-vous installer le programme UnixDirs ?"
))

(set #where-unixdirs-help
(cat    "Veuiller sélectionner un répertoire où copier le programme "
    "UnixDirs. C'est normalement le répertoire C: de votre disque "
    "de démarrage, d'où cet outil sera chargé au démarrage.\n"
    #unixdirs-help
))

(set #copy-uxhelp
(cat    "O.K. pour installer le guide de UnixDirs ?"
))

(set #copy-uxhelphelp
(cat    "Ceci est la documentation du programme UnixDirs par Timo Kaikumaa. "
    "A moins d'être vraiment à court d'espace disque, installez-le ausii."
))

(set #copy-topaz6
(cat    "Voulez-vous installer la fonte topaz6 ?"
))

(set #copy-topaz6-help
(cat    "La fonte topaz6 est une fonte 6x8 qui remplace la fonte XEN.8. "
    "Contrairement à la fonte XEN, qui est proportionnelle et donc pas "
    "très indiquée pour ViNCEd, la topaz6.8 fonctionne parfaitement. "
    "Cette fonte est complète et inclut tous les caractères spéciaux "
    "du jeu de caractère ANSI LATIN."
))

(set #where-topaz6
(cat    "Où dois-je installer la fonte topaz6 ?"
))

(set #where-topaz6-help
(cat    "Veuillez sélectionner un répertoire où copier les fichiers de fonte. "
    "Ce sera généralement le répertoire FONTS: de votre disque de démarrage "
    "ou tout autre endroit où elle peut être trouvée par le système.\n"
    #copy-topaz6-help
))


(set #where-uxhelp
(cat    "Où dois-je installer le guide pour UnixDirs ?"
))

(set #where-uxhelp-help
(cat    "Veuillez sélectionner un répertoire où je dois copier "
    "la documentation du programme UnixDirs. Vous êtes complètement "
    "libre de votre choix."
))

(set #which-prefs
(cat    "Quelle configuration de ViNCEd voulez-vous installer ?"
))

(set #which-prefs-help
(cat    "Veuillez sélectionner l'une des configurations listées ci-dessous. "
    "La \"configuration par défaut\" constitue les réglages d'usine de ViNCEd, "
    "\"Mes preférences\" sont les réglages avec lesquels je travaille, "
    "\"Comme XTerm\" constitue ce que la plupart des personnes préfèrent d'après "
    "mon expérience, \"aucune\" signifie qu'aucun fichier de preférences ne "
    "sera installé; ViNCEd utilisera alors les réglages d'usine à moins "
    "qu'il reste des anciens réglages qui ne doivent pas être écrasés.\n"
    "La plupart de ces réglages pourraient quand même nécessiter quelques "
    "ajustements pour votre style personnel. Utilisez le programme \"SetVNC\" du "
    "tiroir Prefs de votre système pour modifier ces réglages quand l'installation "
    "sera terminée."
))

(set #prefs-standard
(cat    "Configuration par défaut"
))

(set #prefs-mine
(cat    "Mes préférences"
))

(set #prefs-xterm
(cat    "Comme XTerm"
))

(set #prefs-none
(cat    "aucune"
))

(set #patch-more-pi
(cat    "Dois-je patcher un bug de la commande More ?"
))

(set #patch-more-help
(cat    "La commande More désactive l'icônification de la fenêtre de ViNCEd "
    "depuis laquelle elle a été lancée. Ce patch corrige ce problème pour "
    "la version 40.3 de More et augmente cette version à 40.4."
))

(set #where-more
(cat    "Veuillez localiser la commande More :"
))

(set #where-more-help
(cat    "Veuillez sélectionner la commande More avec la requête de fichier. Vous "
    "la trouverez généralement dans le tiroir \"Utilities\" de votre "
    "partition système.\n"
    #patch-more-help
))

(set #install-named-pi
(cat    "Dois-je installer le gestionnaire de console nommée ?"
))

(set #install-named-help
(cat    "Le gestionnaire de console nommée (NamedConsoleHandler) corrige "
    "une bug des versions 2.0 et 2.1 du système qui interdit la touche "
    "^Z pour ViNCEd. Il n'y a pas besoin de l'installer pour les systèmes "
    "3.0 et 3.1 cependant."
))

(set #install-named-where
(cat    "Où dois-je installer le gestionnaire de console nommée ?"
))

(set #install-named-where-help
(cat    "Le gestionnaire de console nommée va généralement dans le répertoire "
    "L de votre partition système, où se trouvent également tous les autres "
    "gestionnaires.\n"
    #install-named-help
))

(set #install-named-icon
(cat    "Où mettre l'icône de montage du gestionnaire de console nommée ?"
))

(set #install-named-icon-help
(cat    "L'icône du gestionnaire de console nomée va normalement dans le "
    "répertoire DEVS:DosDrivers, où se trouvent toutes les icônes de "
    "montage. Pour autoriser la fonctionnalité ^Z de ViNCEd pour les "
    "versions 2.0 et 2.1 du système, cette icône doit être montée au "
    "démarrage.\n"
    #install-named-help
))

(set #exit-not-found
(cat    "Impossible de trouver votre fichier \"%s\" - Erreur DOS %ld "
    "- installation abandonnée. "
))

(set #exit-text
(cat    "Installation de ViNCEd terminée. Vous devriez redémarrer maintenant.\n"
    "J'espère que vous appréciez ViNCEd autant que moi..."
))
))
;
;==========================================================================
;###slovensko###

(if (= @language "slovensko")
(
(set #default_lang 8)
(set #yes "Da")
(set #no  "Ne")

(set #which-disk
(cat "Na katero napravo naj namestim ViNCEd?"
))

(set #exit-not-decoded
(cat "Programa SetVNC ne morem odkodirati. Kontaktirajte avtorja na "
     "[e-mail]."
))

(set #which-disk-help
(cat "\nTu lahko izberete, na katero napravo boste namestili "
     "ViNCEd datoteke. Obièajno naj bi bila lokacija ista kot za "
     "Workbench datoteke, to je zagonska particija oziroma zagonski disk.\n\n"
     @askdir-help
))

(set #no-assign
(cat "\nCilj mora biti sistemski disk. Tam morajo biti predali S, DEVS, LIBS "
     "in C.\n\n"
))

(set #old-name
(cat "STAR"
))

(set #move-old
(cat "\n\nAli ¾elite varnostno kopijo naslednjih datotek "
     "v predalu \"%s\"?\n\n%s"
))

(set #move-old-help
(cat "\nOb namestitvi ViNCEd bom nadomestil nekaj trenutnih Workbench datotek, "
     "ter Startup- in MountList datotek. "
     "Èe hoèete ohraniti morebitne spremembe, ki ste jih naredili na teh "
     "datotekah, jih bom med procesom namestitve prekopiral v predal \"%s\", "
     "kjer jih boste kasneje lahko na¹li."
))

(set #move-old-1
(cat "Prekopiraj"
))

(set #move-old-2
(cat "Preskoèi"
))

(set #ask-vnc
(cat "Doloèite izvorni ViNCEd predal:"
))

(set #ask-vnc-help
(cat "Tu prosim doloèite predal, kamor ste odpakirali "
     "arhiv. Lokacija, ki sem jo izbral jaz, bi morala delovati v "
     "(skoraj) vseh primerih, zato ne skrbite o izbiri drugega "
     "vira.\n\n"
     @askdir-help
))

(set #do-mount
(cat    "Ali ¾elite dodati prijavne (mount) vnose za ViNCEd upravljalca (handler)?"
))

(set #mount-help
(cat    "Èe ¾elite ViNCEd namestiti kot gonilnik okna lupine, "
        "morate ViNCEd PRIJAVITI (mount) kot napravo, enako kot RAD ram disk ali "
        "trdi disk. Podatki o tem, kako to storiti so vkljuèeni "
        "v prijavne vnose, ki morajo biti dodani sistemskemu "
        "seznamu naprav. Svetujem vam, da ogovorite z DA, "
        "kajti BREZ prijave je ViNCEd precej neuporaben. "
))

(set #modify-startup
(cat    "Ali ¾elite ob zagonu ViNCEd avtomatièno prijaviti?"
))

(set #override-con
(cat    "Naj CON: upravljalec nadomestim z ViNCEdom?"
))

(set #override-help
(cat    "Z dodatnim ukazom v startup-sequence lahko "
        "ViNCEd nastavite tako, da bo nadomestil Commodorejev "
        "upravljalec okna lupine, CON:. Posledica tega je, da se "
        "vsako okno konzole, naprimer okna za ARexx, "
        "Ed in mnogo drugih, odpre kot ViNCEd okno. Èe se odloèite "
        "tako, vam svetujem, da v urejevalniku nastavitev NE "
        "vkljuèite opcije \"Lupina kot prednastavljeni naèin\". "
        "Veè o tem si preberite v priroèniku."
))

(set #modify-startup-help
(cat    "Ukaz, ki ga je potrebno dodati je \"%s\"\n\n"
        "Ta bo ViNCEd avtomatièno prijavil."
))

(set #which-name
(cat    "Pod katerim imenom naj prijavim ViNCEd?"
))

(set #which-name-help
(cat    "ViNCEd lahko prijavite kot VNC: ali kot NEWCON:. "
        "Z obema imenoma deluje lepo, toda pod Workbenchem 1.3 morate "
        "uporabiti NEWCON:, da s tem nadomestite sistemskega upravljalca. "
))

(set #copy-lib
(cat    "Ali ¾elite prekopirati the vnc.library v predal LIBS:?"
))

(set #copy-lib-help
(cat    "vnc.library je srce ViNCEdovega gonilnika okna in vsebuje "
        "samega upravljalca. Ta ne bo delal brez knji¾nice in "
        "celotna namestitev brez nje postane neuporabna."
))

(set #copy-setvnc
(cat    "Ali ¾elite prekopirati SetVNC kontrolni "
        "program v predal C:?"
))

(set #copy-setvnc-help
(cat    "SetVNC program se obna¹a kot nastavitveni program za sistem ViNCEd. "
        "Ne ponuja zgolj popoln urejevalnik nastavitev, ampak tudi funkcije "
        "za nadzor slu¾b. Prosim, obrnite se na priroènik, da bi izvedeli "
        "veè o tem programu."
))

(set #do-locale
(cat    "Katere jezike ¾elite namestiti?"
))

(set #locale-help
(cat    "ViNCEd je lokaliziran za razliène jezike. Prosim oznaèite "
        "vse jezike, ki jih ¾elite namestiti. Podatki, potrebni za lokalizacijo, "
        "bodo potem med namestitvijo prekopirani v va¹ sistem, "
        "in sicer v predal LOCALE:."
))

(set #do-prefs
(cat    "Ali ¾elite namestiti nastavitveno ikono?"
))

(set #prefs-help
(cat    "Ta ikona bo prekopirana v va¹ predal Prefs in bo priklicala "
        "urejevalnik nastavitev za ViNCEd, program SetVNC. "
        "Lep grafièni uporabni¹ki vmesnik vam bo omogoèal "
        "nastavitev parametrov ViNCEda."
))

(set #copy-help
(cat    "Ali naj namestim ViNCEdov priroènik?"
))

(set #copy-help-help
(cat    "ViNCEdov priroènik je popolna dokumentacija "
        "upravljalca in urejevalnika nastavitev, SetVNC. "
        "Iz lupine ga priklièete s tipko Help, "
        "iz urejevalnika nastavitev pa z gumbom Pomoè. Èe vam moèno ne "
        "primanjkuje prostora na disku, ga namestite."
))

(set #help-dir
(cat    "Izberite predal, kamor naj namestim priroènik:"
))

(set #help-help
(cat    "ViNCEd med delom ponuja priroènik, ki ga lahko vidite spomoèjo Commodorejevega "
        "programa AmigaGuide ali MultiView. Izberite predal, kamor naj prekopiram "
        "to bazo podatkov."
))

(set #do-docs
(cat    "Ali ¾elite namestiti ViNCEdove vkljuène (include) datoteke?"
))

(set #docs-where
(cat    "Prosim izberite predal za vkljuène datoteke in povezovalno knji¾nico (link library):"
))

(set #docs-help
(cat    "Èe ¾elite uporabljati vse opcije ViNCEda, potrebujete "
        "C in zbirni¹ke vkljuène datoteke za pisanje lastnih "
        "programov, ki klièejo ViNCEd. Priporoèam, da v te namene "
        "uporabljate rutine povezovalne knji¾nice. "
))

(set #browser-where
(cat    "Prosim, izberite svoj najljub¹i pregledovalnik AmigaGuide datotek:"
))

(set #browser-help
(cat    "Prosim, izberite program, ki lahko prikazuje AmigaGuide datoteke. "
        "To naj bi bil AmigaGuide ali Multiview. Kot izhod v sili, "
        "izberite MORE ali Ed, ki ju lahko najdete v predalu Utilities ali "
        "C: va¹e Workbench diskete."
))

(set #do-scripts
(cat    "Ali naj namestim skripte za lupino?"
))

(set #scripts-help
(cat    "The skripte nadomestijo ukaza SetFont in SetKeyboard  "
        "na ViNCEd kompatibilen naèin. Ostale tri kratke skripte so uporabne bli¾njice "
        "do funkcij za nadzor slu¾b. "
))

(set #where-scripts
(cat    "Kam naj instaliram skripte?"
))

(set #where-scripts-help
(cat    "Skripte za lupino so obièajno name¹èene v predalu S va¹e zagonske "
        "naprave, kjer jih bo lupina avtomatièno na¹la. "
        "Vendar pa, èe imate raje drugo lokacijo, izvolite, toda zagotoviti "
        "morate, da jih bo lupina na¹la, sicer bodo neuporabne."
))

(set #where-setvnc
(cat    "Prosim izberite predal, kamor naj namestim "
        "program SetVNC:"
))

(set #where-setvnc-help
(cat    "Program SetVNC je ViNCEdov nadzorni program "
        "in urejevalnik nastavitev, vse v enem. Obièajno bi moral "
        "biti v predalu C:. Priporoèam, da ga ne daste v "
        "Prefs."
))

(set #where-locale
(cat    "Kam naj namestim kataloge? (Predal "
        "VNC bo ustvarjen):"
))

(set #where-locale-help
(cat    "Prosim izberite predal, kamor naj prekopiram kataloge, "
        "to je datoteke s prevodi "
        "ViNCEda v razliène jezike. Na izbrani lokaciji bo "
        "ustvarjen predal z imenom VNC. "
        "®e nastavljena izbira je obièajno v redu."
))

(set #where-devs
(cat    "Kam naj namestim prijavne ikone?"
))

(set #where-devs-help
(cat    "Prijavne ikone so potrebne za prijavo ViNCEd upravljalca ob "
        "zagonu. Prebere jih startup-sequence z ukazom "
        "mount v èasu zagona. Te ikone naj bi obièajno ¹le "
        "v predal DEVS/DosDrivers."
))

(set #where-prefs
(cat    "Kam naj namestim ikono urejevalnika nastavitev?"
))

(set #where-prefs-help
(cat    "Prosim, izberite predal, kamor naj prekopiram SetVNC ikono. "
        "To je obièajno predal Prefs va¹ega sistema. "
        "Mimogrede naj povem, da ni potrebno, da je program SetVNC v istem "
        "predalu, kot njegova ikona."
))

(set #where-archive
(cat    "Kam naj namestim izbrane nastavitve?"
))

(set #where-archive-help
(cat    "Prosim, iberite predal, kamor naj prekopiram datoteko "
        "z izbranimi nastavitvami. To je obièajno "
        "ENVARC: dodelitev (assign) v va¹em sistemu."
))

(set #where-rexx
(cat    "Prosim, doloèite predal, ki vsebuje rexxsyslib.library:"
))

(set #where-rexx-help
(cat    "Prosim, tu doloèite predal, ki vsebuje "
        "rexxsyslib.library. Ta datoteka je obièajno v predalu "
        "LIBS va¹ega zagonskega diska.\n"
        "Ta podatek potrebujem, da preverim, èe imate starej¹o verzijo "
        "rexxsyslib.library, ki je polna hro¹èev, in lahko na njej "
        "za¾enem popravek, da jo popravim. O popravku vas bom ¹e "
        "posebej povpra¹al."
))

(set #replace-old
(cat    "Naj namestim 3.6x nastavitve in nadomestim stare 3.5x nastavitve?"
))

(set #replace-old-help
(cat    "V va¹em predalu ENVARC:sys sem na¹el stare nastavitve. "
        "Nove verzije ViNCEda ¹e vedno lahko prebirajo star format, "
        "toda ta podpora bo odstranjena v eni izmed naslednjih verzij. "
        "Upo¹tevane ne bodo vse stare nastavitve, nekatere podrobnosti "
        "bo v novi verziji ViNCEda potrebno znova nastaviti. "
        "Èe namestite novo datoteko z nastavitvami, starih ne boste izgubili, "
        "saj bodo ¹e vedno na prej¹nji lokaciji "
        "vendar jih bo ViNCEd ignoriral, èe bo na¹el novej¹o razlièico. "
        "Èe boste po instalaciji ¾eleli ponovno uveljaviti stare nastavitve, "
        "lahko preprosto zbri¹ete datoteko "
        "ENVARC:ViNCEd.prefs, a v tem primeru kasneje ne pozabite zagnati \"SetVNC\", "
        "kajti podpora za stari format ne bo trajala veèno."
))

(set #copy-icon
(cat    "Ali ¾elite nadomestiti ikono za lupino?"
))

(set #copy-icon-help
(cat    "Èe ¾elite ViNCEd uporabljati kot urejevalnik lupine, vam svetujem, da "
        "sistemsko ikono nadomestite z ikono, ki se nahaja v tem arhivu. "
        "Za okno lupine ta izbere pot do ViNCEda."
))

(set #where-shell
(cat    "Prosim, izberite predal, kjer le¾i ikona lupine:"
))

(set #where-shell-help
(cat    "Èe ¾elite nadomestiti sistemsko ikono lupine, "
        "mi morate prosim povedati, kje jo imate. Obièajno je "
        "ali v osnovnem predalu zagonske enote, ali v "
        "predalu System. Vedite, da potrebujem PREDAL, "
        "ne datoteko!"
))

(set #where-lib
(cat    "Prosim, izberite predal, kamor naj prekopiram "
        "vnc.library:"
))

(set #where-lib-help
(cat    "vnc.library je glavna knji¾nica ViNCEda, "
        "vsebuje vse funkcije upravljalca. Obièajno naj bi jo "
        "namestili v va¹ predal LIBS:."
))

(set #do-patch
(cat    "Ali ¾elite popraviti ARexx, da bi odstranili hro¹èa?"
))

(set #patch-help
(cat    "Funkcija WaitDosPacket knji¾nice rexxsyslib.library ima hro¹èa, "
        "ki lahko povzroèi sesutje. To ni problem, znaèilen le za "
        "ViNCEd in "
        "se lahko pojavi tudi v drugih programih. Ta popravek bi morali instalirati, "
        "da popravite knji¾nico."
))

(set #copy-stringsnip
(cat    "Ali ¾elite namestiti ukaz StringSnip?"
))

(set #install-stringsnip
(cat    "Ali ¾elite namestiti StringSnip ob zagonu?"
))

(set #stringsnip-help
(cat    "StringSnip je majhen programèek, ki, èe je name¹èen, raz¹iri "
        "opcije vnosnih polj urejevalnika na naèin, kompatibilen z "
        "ViNCEdom. Amiga-X odre¾e vsebino, Amiga-C jo prekopira in "
        "Amiga-V vrine odlo¾i¹èe. Dodatne kombinacije kurzorskih tipk "
        "kot tiste, ki jih ponuja ViNCEd, naredijo iz tega uporabno "
        "orodje, ki deluje neodvisno od ViNCEda."
))

(set #where-stringsnip
(cat    "Kam naj namestim program StringSnip?"
))

(set #where-stringsnip-help
(cat    "Prosim, izberite predal, kamor naj prekopiram "
        "programèek StringSnip in od koder se ta za¾ene "
        "zagonu. To naj bi obièajno bil "
        "predal C: va¹ega zagonskega diska.\n"
        #stringsnip-help
))

(set #copy-multiassigns
(cat    "Ali ¾elite namestiti ukaz TrueMultiAssigns?"
))

(set #install-multiassigns
(cat    "Ali ¾elite zagnati TrueMultiAssigns ob zagonu?"
))

(set #multiassigns-help
(cat    "Program TrueMultiAssigns je popravni ukaz, ki poskrbi za pravilno delovanje "
        "rutin AmigaDOSa za preverjanje vzorca v primeru "
        "veèpredalnih dodelitev (assigns). "
        "Predpomnilnik predalov TAB raz¹iritev ViNCEda prièakuje, da je ta "
        "popravek name¹èen, zato ga prosim dodajte v sistem. "
        "Za isto delo je moè najti veè programov, toda vsi, ki sem jih jaz "
        "preizkusil so bolj ali manj pokvarjeni, vkljuèno z MultiCX in "
        "starim TrueMultiAssigns 1.02 Marcusa Wilda, in ne delujejo "
        "z ViNCEdom. Priporoèam, da uporabite moj popravek, ker je bil "
        "preizku¹en za podporo ViNCEda."
))

(set #where-multiassigns
(cat    "Kam naj namestim TrueMultiAssigns?"
))

(set #where-multiassigns-help
(cat    "Prosim, izberite predal, kamor naj prekopiram "
        "program TrueMultiAssigns. Od tam ga bom nalo¾il "
        "ob zagonu. To naj bi obièajno bil predal C: "
        "va¹ega zagonskega diska.\n"
        #multiassigns-help
))

(set #copy-tbiclass
(cat    "Ali ¾elite namestiti razred podob za naslovno vrstico?"
))

(set #where-tbiclass
(cat    "Kam naj namestim razred podob za naslovno vrstico?"
))

(set #copy-tbiclass-help
(cat    "Razred podob za naslovno vrstico, ki ga je napisal Massimo Tantignone in "
        "je vkljuèen z njegovim prijaznim dovoljenjem, priredi ViNCEdove "
        "podobe v naslovni vrstici - tako makro gumbe kot tudi orodje za ikoniziranje. "
        "Ta razred ni OBVEZEN, ViNCEd bo uporabil lastne "
        "podobe, èe te ne bodo na voljo. Gre torej za stvar "
        "osebnega okusa, ali imate raje ViNCEdov lastni ali Massimov "
        "slog gumbov.\n"
        "Ta razred PRAV TAKO NI potreben, èe ¾e zaganjate "
        "VisualPrefs, ker je potem tako ali tako na voljo."
))

(set #where-tbiclass-help
(cat    "Razred podob za naslovno vrstico naj bi obièajno ¹el k ostalim "
        "razredom podob, namreè v \"SYS:Classes/Images/titlebar.image\".\n"
        "Obièajno ni razloga, da bi ga dali drugam, si pa zapomnite, da "
        "ViNCEd posku¹a odpreti razred kot \"images/titlebar.image\", "
        "zato je podpredal, imenovan \"images\" OBVEZEN.\n"
        #copy-tbiclass-help
))

(set #copy-unixdirs
(cat    "Ali ¾elite namestiti ukaz UnixDirs?"
))

(set #install-unixdirs
(cat    "Ali ¾elite zagnati UnixDirs ob zagonu?"
))

(set #unixdirs-help
(cat    "Ta dober program, ki ga je napisal Timo Kaikumaa, AmigaDOSu doda "
        "naslavljanje predalov v Unix stilu. Kot primer, "
        "pika (.) se lahko uporablja kot oznaka za trenutni "
        "predal, dvojna pika (..) je nadomestek za "
        "nadrejeni predal in ena sama po¹evna èrta pomeni osnovni "
        "predal. Poleg tega postane zvezdica (*) veljaven "
        "vzorèni znak in s tem nadomesti obièajno #? sosledje.\n"
        "Hvala Timotu, da mi je dovolil raz¹irjati njegov popravek. "
))

(set #where-unixdirs
(cat    "Kam naj namestim program UnixDirs?"
))

(set #where-unixdirs-help
(cat    "Prosim, izberite predal, kamor naj prekopiram program UnixDirs."
        "To naj bi obièajno bil predal C: va¹ega "
        "zagonskega diska, od koder se to orodje lahko za¾ene ob "
        "zagonu.\n"
        #unixdirs-help
))

(set #copy-uxhelp
(cat    "Ali naj namestim priroènik za UnixDirs?"
))

(set #copy-uxhelphelp
(cat    "To je dokumentacija za program UnixDirs "
        "avtorja Timota Kaikumaa. Èe vam moèno ne primanjkuje "
        "prostora na disku, ga prosim prav tako namestite."
))

(set #copy-topaz6
(cat    "Ali ¾elite namestiti font topaz6?"
))

(set #copy-topaz6-help
(cat    "Font topaz6 je velikosti 6x8 in nadome¹èa font XEN.8. "
        "V nasprotju s fontm XEN, ki je proporcialen in "
        "zato ne preveè primeren za ViNCEd, topaz6.8 deluje v redu. "
        "Ta font je popoln in vsebuje vse posebne znake "
        "LATIN-ANSI nabora znakov."
))

(set #where-topaz6
(cat    "Kam naj namestim font topaz6?"
))

(set #where-topaz6-help
(cat    "Prosim, izberite predal, kamor naj prekopiram datoteke fonta. "
        "To naj bi obièajno bil predal FONTS: va¹ega zagonskega diska "
        "ali katerakoli druga lokacija, kjer ga bo sistem na¹el.\n"
        #copy-topaz6-help
))


(set #where-uxhelp
(cat    "Kam naj namestim priroènik UnixDirs?"
))

(set #where-uxhelp-help
(cat    "Prosim izberite predal, kamor naj prekopiram "
        "dokumentacijo programa UnixDirs. Imate "
        "povsem svobodno izbiro."
))

(set #which-prefs
(cat    "Katero konfiguracijo ViNCEda ¾elite namestiti?"
))

(set #which-prefs-help
(cat    "Prosim, izberite eno izmed navedenih ViNCEdovih konfiguracij: "
        "\"Obièajne nastavitve\" so ViNCEdove tovarni¹ke nastavitve, "
        "\"Moje nastavitve\" so nastavitve, s katerimi delam jaz, "
        "\"Kot XTerm\" pa so nastavitve, ki jih ima po mojih izku¹njah veèina ljudi najraje. "
        "\"Brez\" pomeni, da ne bo name¹èenih nobenih nastavitev; to pomeni, "
        "da bo ViNCEd uporabljal tovarni¹ke nastavitve, razen èe so ¹e vedno "
        "na voljo stare nastavitve, ki jih noèete izgubiti.\n"
        "Veèina teh nastavitev bo najbr¾ potrebovala ¹e nekaj sprememb, preden bo "
        "ustrezala va¹emu osebnemu slogu. Uporabite program \"SetVNC\" iz predala "
        "Prefs va¹ega sistema in z njim spremenite nastavitve, ko bo namestitev "
        "konèana."
))

(set #prefs-standard
(cat    "Obièajne nastavitve"
))

(set #prefs-mine
(cat    "Moje nastavitve"
))

(set #prefs-xterm
(cat    "Kot XTerm"
))

(set #prefs-none
(cat    "Brez"
))

(set #patch-more-pi
(cat    "Ali naj popravim hro¹è ukaza More?"
))

(set #patch-more-help
(cat    "Program More onesposobi ikoniziranje ViNCEdovega okna, "
        "v katerem je bil zagnan. Ta popravek odpravi problem verzije 40.3 "
        "programa More in ga dopolni do verzije 40.4."
))

(set #where-more
(cat    "Prosim, izberite ukaz More:"
))

(set #where-more-help
(cat    "Prosim izberite ukaz More z datoteènim zahtevkom. Obièajno "
        "ga boste na¹li v predalu \"Utilities\" va¹e "
        "sistemske particije.\n"
        #patch-more-help
))

(set #install-named-pi
(cat    "Naj namestim NamedConsoleHandler?"
))

(set #install-named-help
(cat    "NamedConsoleHandler obide funkcijo AmigaDOS "
        "verzij 2.0 in 2.1, ki ViNCEdu prekine tipko ^Z. "
        "Za AmigaDOS verziji 3.0 in 3.1 ga zato ni potrebno namestiti. "
))

(set #install-named-where
(cat    "Kam naj namestim NamedConsoleHandler?"
))

(set #install-named-where-help
(cat    "NamedConsoleHandler naj bi obièajno ¹el v predal L: "
        "va¹e zagonske particije, kjer so ¾e vsi ostali upravljalci.\n"
        #install-named-help
))

(set #install-named-icon
(cat    "Kam naj dam prijavno ikono za NamedConsole?"
))

(set #install-named-icon-help
(cat    "NamedConsoleHandler prijavna ikona naj bi obièajno bila v "
        "DEVS:DosDrivers, kjer so ¾e vse ostale prijavne ikone. "
        "Da bi omogoèili funkcijo ^Z ViNCEda tudi v AmigaDOS verzijo 2.0 in "
        "2.1, mora biti ta ikona prijavjena med zagonom.\n"
        #install-named-help
))

(set #exit-not-found
(cat    "Ne najdem va¹e datoteke \"%s\" - DOS napaka %ld "
        "- namestitev prekinjena. "
))

(set #exit-text
(cat    "Namestitev ViNCEda je konèana. Raèunalnik ponovno za¾enite.\n"
        "Upam, da vam bo ViNCEd v¹eè tako kot meni..."
))
))

;==========================================================================
;###italiano###

(if (= @language "italiano")
(
(set #default_lang 16)
(set #yes "Sì")
(set #no  "No")

(set #which-disk
(cat "Su quale disco vuoi installare ViNCEd?"
))

(set #exit-not-decoded
(cat "Non riesco a ricostruire il programma SetVNC. Contatta l'autore!"
     "[e-mail]."
))

(set #which-disk-help
(cat "\nIn questa sezione sarà possibile scegliere in quale disco dovranno  "
     "essere installati i file di ViNCEd. Questi andrebbero installati,  "
     "di norma, nello stesso disco in cui si tengono i file del sistema  "
     "cioè la partizione -o disco- di boot.\n\n"
     @askdir-help
))

(set #no-assign
(cat "\nLa destinazione deve essere un disco di sistema: in essa devono  "
     "essere presenti i cassetti S, DEVS, LIBS e C.\n\n"
))

(set #old-name
(cat "OLD"
))

(set #move-old
(cat "\n\nSi vuole tenere una copia dei seguenti file "
     "nel cassetto \"%s\"?\n\n%s"
))

(set #move-old-help
(cat "\nL'installazione di ViNCEd rimpiazzerà alcuni file del Workbench, "
     "i file Startup- e MountList. "
     "Per conservare i cambiamenti eventualmente effettuati su tali file, "
     "il processo di installazione ne farà una copia nella directory \"%s\" "
     "nella quale potranno poi essere ritrovati."
))

(set #move-old-1
(cat "Copia"
))

(set #move-old-2
(cat "Salta questa parte"
))

(set #ask-vnc
(cat "Localizzare la directory in cui sono contenuti i file di ViNCEd:"
))

(set #ask-vnc-help
(cat "Si specifichi qui la directory in cui si è scompattato "
     "l'archivio. La directory predefinita dovrebbe andare bene in "
     "(quasi) tutti i casi, perciò non è necessario cambiarla.\n\n"
     @askdir-help
))

(set #do-mount
(cat    "Si vuole montare da startup-sequence l'handler di ViNCEd?"
))

(set #mount-help
(cat    "Se si intende installare ViNCEd come gestore delle finestre "
    "della shell è necessario montarlo come un device, come la RAD "
    "o un hard disk. Le informazioni necessarie per far ciò sono "
    "contenute nelle voci di montaggio, o \"mount entry\", che si "
    "devono aggiungere alla lista di sistema dei device. Consiglio "
        "di rispondere SI' dato che non montandolo, si rende ViNCEd inutile. "
))

(set #modify-startup
(cat    "Si vuole montare automaticamente ViNCEd all'avvio?"
))

(set #override-con
(cat    "Rimpiazzere l'handler CON: con ViNCEd?"
))

(set #override-help
(cat    "Con l'aggiunta di un comando nella startup-sequence "
    "ViNCEd può essere configurato per rimpiazzare l'handler "
    "delle finestre di sistema della Commodore, CON:. Ciò significa "
    "che ogni finestra di console, come le finestre usate per ARexx, "
    "Ed e molti altri, saranno aperte come finestre di ViNCEd. In "
    "questo caso, si consiglia di NON attivare la modalità "
    "\"Usa il modo Shell se non specificato altrimenti\" nell'editor "
    "delle impostazioni. Istruzioni più dettagliate nella guida."
))

(set #modify-startup-help
(cat    "Il comando che dev'essere aggiunto è \"%s\"\n\n"
    "Questo comando monterà ViNCEd automaticamente."
))

(set #which-name
(cat    "Con che nome deve essere montato ViNCEd?"
))

(set #which-name-help
(cat    "ViNCEd può essere montato come VNC: o come NEWCON:. "
    "In entrambi i casi funziona bene, ma si dovrebbe usare "
        "NEWCON: se si vuole rimpiazzare l'handler delle finestre"
    "di sistema col Workbench 1.3. "
))

(set #copy-lib
(cat    "Si vuole copiare la vnc.library nel cassetto LIBS:?"
))

(set #copy-lib-help
(cat    "La vnc.library è il cuore del driver delle finestre di ViNCEd: "
        "contiene l'handler stesso. L'handler delle finestre non   "
    "può funzionare senza di essa, e non installarla renderebbe "
    "l'installazione stessa inutile. "
))

(set #copy-setvnc
(cat    "Si vuole copiare il programma di controllo SetVNC nel "
    "cassetto C:?"
))

(set #copy-setvnc-help
(cat    "Il programma SetVNC serve per decidere le impostazioni per il  "
    "sistema di ViNCEd. Fornisce non solo un completo editor di "
    "impostazioni funziona anche come controllo di lavoro. "
    "Informazioni più accurate nella guida "
))

(set #do-locale
(cat    "Che lingue si vogliono installare?"
))

(set #locale-help
(cat    "E' possibile localizzare ViNCEd per varie lingue. Si scelgano "
    "qui tutte le lingue che si intende installare. I dati necessari "
    "per la localizzazione verranno copiati, durante il processo di "
    "installazione, nel sistema; normalmente nella directory LOCALE:. "
))

(set #do-prefs
(cat    "Si vuole installare l'icona per SetVNC?"
))

(set #prefs-help
(cat    "Questa icona verrà copiata nel cassetto Prefs e associata "
    "all'editor di impostazioni di ViNCEd: SetVNC. "
    "Una gradevole interfaccia grafica permetterà di configurare "
    "tutti i parametri di ViNCEd."
))

(set #copy-help
(cat    "Si vuole installare la guida in linea di ViNCEd?"
))

(set #copy-help-help
(cat    "La guida di ViNCEd è una documentazione completa dell'handler "
    "e dell'editor di impostazioni, SetVNC. "
    "Viene invocata dalla pressione del tasto Help nella shell "
    "o da un pulsante 'Guida' nel'editor delle impostazioni. A meno    che "
    "si abbia una grave carenza di spazio su disco, la si dovrebbe "
    "installare. "
))

(set #help-dir
(cat    "Selezionare il cassetto in cui installare la guida:"
))

(set #help-help
(cat    "Assieme a ViNCEd viene fornita una guida in linea, visualizzabile "
    "tramite i programmi Commodore AmigaGuide o MultiView. Si scelga "
    "in che cassetto copiare questa guida."
))

(set #do-docs
(cat    "Si vogliono installare i file include di ViNCEd?"
))

(set #docs-where
(cat    "Si scelga il cassetto per i file include e la libreria statica:"
))

(set #docs-help
(cat    "Se si vogliono utilizzare tutte le caratteristiche di ViNCEd, sono "
    "necessari i file include per C e assembly per scrivere i propri "
    "programmi che usano ViNCEd. Si raccomanda di usare le routine stub "
    "della libreria statica per fare ciò. "
))

(set #browser-where
(cat    "Indicare il proprio lettore preferito per il formato AmigaGuide:"
))

(set #browser-help
(cat    "Selezionare un programma che possa visualizzare file AmigaGuide. "
    "Dovrebbe essere AmigaGuide o Multiview. Come ultima possibilità, "
    "si scelga MORE o Ed che possono essere trovati nei cassetti "
    "Utilities o C: del disco del Workbench."
))

(set #do-scripts
(cat    "Si desidera installare gli script per la shell?"
))

(set #scripts-help
(cat    "Questi script rimpiazzano i comandi SetFont e SetKeyboard in modo "
    "che siano compatibili con ViNCEd. Ci sono altri tre piccoli script "
    "che costituiscono utili scorciatoie per le funzioni di controllo "
    "dei job."
))

(set #where-scripts
(cat    "Dove devono essere copiati gli script?"
))

(set #where-scripts-help
(cat    "Gli script della shell di solito si trovano nella directory S del "
    "dispositivo da cui è stato fatto il boot, e qui vengono cercati dal "
    "sistema se non si specifica altrimenti. "
    "Comunque, se si preferisce copiarli in una locazione diversa, lo si "
    "faccia pure, a patto però di accertarsi che la shell possa accedervi, "
    "in caso contrario essi saranno inutili."
))

(set #where-setvnc
(cat    "Selezionare la directory in cui installare il "
    "programma SetVNC:"
))

(set #where-setvnc-help
(cat    "Il programma SetVNC riunisce in se il programma di controllo "
    "e l'editor delle impostazioni di ViNCEd. Di solito va copiato "
    "nella directory C:. L'autore consiglia di NON metterlo nella "
    "directory Prefs."
))

(set #where-locale
(cat    "Dove si vogliono installare i file .catalog? (verrà creata una "
    "directory di nome VNC):"
))

(set #where-locale-help
(cat    "Si selezioni la directory in cui vanno copiati i cataloghi, "
    "cioè i file che contengono la traduzione di ViNCEd nelle varie "
    "lingue. Verrà automaticamente creata una directory di nome VNC "
    "nella locazione scelta. "
    "Di solito non è necessario cambiare la directory predefinita."
))

(set #where-devs
(cat    "Dove si vogliono installare le icone per il montaggio?"
))

(set #where-devs-help
(cat    "Le icone per il montaggio servono a montare l'handler di ViNCEd "
    "all'avvio. Sono lette dalla startup-sequence tramite il "
    "comando mount durante il boot. Queste icone di solito vanno "
    "copiarsi nella directory DEVS/DosDrivers."
))

(set #where-prefs
(cat    "Dove si vuole installare l'icona dell'editor delle impostazioni?"
))

(set #where-prefs-help
(cat    "Si selezioni la directory in cui copiare l'icona di SetVNC. "
    "Di solito questa è il cassetto Prefs del disco di sistema. "
    "Si noti che non è necessario che il programma SetVNC si trovi "
    "nella stessa directory della sua icona!"
))

(set #where-archive
(cat    "Dove si vogliono installare i file contenenti le impostazioni?"
))

(set #where-archive-help
(cat    "Si selezioni la directory dove si vuole copiare il file delle "
    "impostazioni. Di solito si usa a questo scopo l'assegnamento "
    "di sistema ENVARC:."
))

(set #where-rexx
(cat    "Selezionare la directory contenete la rexxsyslib.library:"
))

(set #where-rexx-help
(cat    "Si individui la directory contenente la libreria "
    "rexxsyslib.library. Di solito questa è contenuta nel cassetto "
    "LIBS del disco di boot.\n"
    "Questa informazione permette di controllare la versione della "
    "suddetta libreria e, se in presenza di una versione obsoleta e "
    "bacata, di applicare un patch per correggerne gli errori. Verrà "
    "ulteriore conferma prima dell'applicazione del patch."
))

(set #replace-old
(cat    "Si desidera installare le impostazioni nel formato della versione "
    "3.6x e rimpiazzare le vecchie impostazione della versione 3.5x?"
))

(set #replace-old-help
(cat    "Sono stati trovati i file delle impostazioni nel vecchio formato "
    "nel cassetto ENVARC:sys. "
    "Le nuove versioni di ViNCEd sono in grado di leggere il vecchio "
    "formato, ma questo supporto verrà abbandonato in una delle prossime "
    "versioni. Non tutte le impostazioni del vecchio formato verranno "
    "convertite correttamente nel nuovo formato: alcuni dettagli "
    "dovranno essere riconfigurati. "
    "Se si installa un nuovo file di impostazioni, quello vecchio "
    "verrà conservato nella locazione originaria, così che niente è "
    "perduto; ma se viene trovato un file di impostazioni nel nuovo "
    "formato, quello vecchio verrà ignorato da ViNCEd. Se dopo "
    "l'installazione si vogliono ricreare le vecchie impostazioni, "
    "sarà sufficiente cancellare il file "
    "ENVARC:ViNCEd.prefs, ma non si dimentichi di lanciare \"SetVNC\" "
    "dopo un po', dato che il vecchio formato non verrà supportato "
    "per sempre."
))

(set #copy-icon
(cat    "Si desidera rimpiazzare l'icona della shell?"
))

(set #copy-icon-help
(cat    "Se si vuole usare ViNCEd come un editor per la shell, si consiglia "
    "di rimpiazzare l'icona di sistema per la shell con quella contenuta "
    "nell'archivio, che seleziona ViNCEd come gestore della finestra della shell."
))

(set #where-shell
(cat    "Selezionare la directory in cui è contenuta l'icona della shell:"
))

(set #where-shell-help
(cat    "Se si vuole rimpiazzare l'icona di sistema per la shell, "
    "bisogna comunicare all'installer dove cercarla. Di solito "
    "la si trova nella directory radice del disco di boot, o "
    "nel cassetto System. Si noti che è necessario indicare "
    "la DIRECTORY, non il file!"
))

(set #where-lib
(cat    "Selezionare la directory in cui copiare la vnc.library:"
))

(set #where-lib-help
(cat    "La vnc.library è la libreria principale di ViNCEd: "
    "contiene tutte le funzioni dell'handler. Andrebbe installata, "
    "di norma, nella directory LIBS:."
))

(set #do-patch
(cat    "Si vuole applicare un patch per rimuovere un bug da ARexx?"
))

(set #patch-help
(cat    "La funzione WaitDosPacket della rexxsyslib.library ha un bug "
    "che può causare crash di sistema. Questo non è un problema "
    "specificamente di ViNCEd e può manifestarsi anche con altri "
    "programmi. Si consiglia di installare questo patch e correggere "
    "la libreria."
))

(set #copy-stringsnip
(cat    "Si desidera installare il comando StringSnip?"
))

(set #install-stringsnip
(cat    "Si desidera lanciare StringSnip all'avvio?"
))

(set #stringsnip-help
(cat    "StringSnip è una piccola utility che, se installata, migliora "
    "le caratteristiche di editing dei gadget stringa in modo che siano"
    "simili a quelle di ViNCEd. Amiga-X esegue un 'taglia' dei contenuti "
    "del gadget, Amiga-C esegue 'copia' e Amiga-V 'incolla' la clipboard. "
    "Ulteriori combinazioni dei tasti cursore, simili a quelle fornite "
    "da ViNCEd rendono questo programmino un utile strumento che funziona "
    "independentemente da ViNCEd."
))

(set #where-stringsnip
(cat    "Dove si desidera installare il programma StringSnip?"
))

(set #where-stringsnip-help
(cat    "Si selezioni la directory in cui si vuole copiare l'utility "
    "StringSnip e da cui verrà caricata all'avvio. "
    "Di solito si usa a questo scopo la directory C: del disco di boot.\n"
    #stringsnip-help
))

(set #copy-multiassigns
(cat    "Si vuole installare il comando TrueMultiAssigns?"
))

(set #install-multiassigns
(cat    "Si vuole lanciare TrueMultiAssigns all'avvio?"
))

(set #multiassigns-help
(cat    "Il programma TrueMultiAssigns è un comando di patch che fa sì "
    "che le routine di pattern matching (ricerca tramite maschera) "
    "dell'AmigaDOS agiscano correttamente nel caso di assegnamenti "
    "multipli. "
    "La memoria interna delle directory per l'espansione tramite TAB "
    "di ViNCEd si aspetta che questo patch sia installato perciò "
    "si consiglia di installarlo effettivamente. "
    "E' possibile trovare molti altri programmi che svolgono "
    "lo stesso compito, ma tutti quelli analizzati dall'autore sono "
    "risultati essere più o meno inefficienti, incluso MultiCX e il "
    "vecchio TrueMultiAssigns 1.02 di Marcus Wild, e non funzionano "
    "con ViNCEd. L'autore raccomanda di usare il suo patch, scritto "
    "e testato appositamente per supportare ViNCEd."
))

(set #where-multiassigns
(cat    "Dove si desidera installare TrueMultiAssigns?"
))

(set #where-multiassigns-help
(cat    "Si selezioni la directory in cui si vuole copiare l'utility "
    "TrueMultiAssigns e da cui verrà caricata all'avvio. "
    "Di solito si usa a questo scopo la directory C: del disco di boot.\n"
    #multiassigns-help
))

(set #copy-tbiclass
(cat     "Si vuole installare la classe image 'toolbutton'?"
))

(set #where-tbiclass
(cat    "Dove si desidera installare la classe image 'toolbutton'?"
))

(set #copy-tbiclass-help
(cat    "La classe image 'toolbutton', scritta da Massimo Tantignone e "
    "inclusa col suo amichevole consenso, modifica le immagini contenute "
    "nella barra del titolo delle finestre di ViNCEd - sia i pulsanti "
    "associati alle macro sia il gadget per l'iconificazione. "
    "Questa classe è un MUST,  ma se non disponibile ViNCEd userà le "
    "sue immagini. E' dunque una questione di gusti personali il "
    "preferire i pulsanti predefiniti di ViNCEd's o lo stile "
    "'toolbutton' di Massimo.\n"
    "Da notare che questa classe NON è necessaria se si sta già utilizzando "
    "VisualPrefs perchè in questo caso è comunque fornita."
))

(set #where-tbiclass-help
(cat    "La classe image 'toolbutton' dovrebbe stare insieme a tutte le "
    "altre classi image, cioè in \"SYS:Classes/Images/titlebar.image\".\n"
    "Ci sono ben poche ragioni per volerla mettere altrove, ma nel caso "
    "si ricordi che ViNCEd tenta di accedervi come \"images/titlebar.image\" "
    "perciò una sottodirectory di nome \"images\" è OBBLIGATORIA.\n"
    #copy-tbiclass-help
))

(set #copy-unixdirs
(cat    "Si vuole installare il comando UnixDirs?"
))

(set #install-unixdirs
(cat    "Si vuole lanciare UnixDirs all'avvio?"
))

(set #unixdirs-help
(cat    "Questo utile programma, sviluppato da Timo Kaikumaa, aggiunge "
    "all'AmigaOS il riconoscimento dei riferimenti alle directory "
    "in stile Unix. Ad esempio, il punto (.) si riferisce alla "
    "directory corrente, il doppio punto (..) è un riferimento alla "
    "directory precedente e la barra, da sola (/) si riferisce alla "
    "directory radice, o root. Inoltre l'asterisco (*) diventa uno "
    "dei metacaratteri permessi per la definizione delle maschere di "
    "ricerca, al posto della solita sequenza '#?'.\n"
    "I miei ringraziamenti a  Timo per avermi consentito di "
    "ridistribuire il suo patch."
))

(set #where-unixdirs
(cat    "Dove si desidera installare il programma UnixDirs?"
))

(set #where-unixdirs-help
(cat    "Si selezioni la directory in cui si vuole copiare l'utility "
    "UnixDirs e da cui verrà caricata all'avvio. "
    "Di solito si usa a questo scopo la directory C: del disco di boot.\n"
    #unixdirs-help
))

(set #copy-uxhelp
(cat    "Si desidera l'installazione della guida di UnixDirs?"
))

(set #copy-uxhelphelp
(cat    "Si tratta delle istruzioni per l'uso del programma UnixDirs "
    "di Timo Kaikumaa. A meno che non si abbia una seria carenza "
    "di spazio su disco, la loro installazione è consigliata."
))

(set #copy-topaz6
(cat    "Si vuole installare il font topaz6?"
))

(set #copy-topaz6-help
(cat    "Topaz6 è un font 6x8 che sostituisce il font XEN.8. "
    "Diversamente da quest'ultimo, che è proporzionale e perciò "
    "non molto adatto a ViNCEd, il font topaz6 è a spaziatura fissa. "
    "Questo è un font completo e contiene tutti i caratteri speciali "
    "del set LATIN-ANSI."
))

(set #where-topaz6
(cat    "Dove si vuole installare il font topaz6?"
))

(set #where-topaz6-help
(cat    "Si selezioni la directory in cui si vuole copiare il font "
    "topaz6. "
    "Di solito si usa a questo scopo la directory FONTS: del disco di boot."
    "o qualsiasi altra in cui il font sia rintracciabile dal sistema\n"
    #copy-topaz6-help
))


(set #where-uxhelp
(cat    "Dove si desidera installare la guida di UnixDirs?"
))

(set #where-uxhelp-help
(cat    "Si scelga una directory nella quale sarà copiata la "
    "documentazione del proramma UnixDirs. "
    "La scelta è completamente libera."
))

(set #which-prefs
(cat    "Che configurazione per ViNCEd si vuole installare?"
))

(set #which-prefs-help
(cat    "Si selezioni UNA delle configurazioni per ViNCEd elencate: "
    "Le \"Impostazioni Predefinite\" sono quelle standard, "
    "La \"Mia Configurazione\" è quella con cui lavora l'autore, "
    "\"Come XTerm\" sono quelle, per quanto ne so, preferite dai più . "
    "\"nessuna\" significa che non verrà installato alcun file di "
    "impostazioni, e quindi ViNCEd userà la configurazione standard a meno"
    "che non trovi preferenze nel vecchio formato da non sovrascrivere.\n"
    "La maggior parte di questi file di configurazione richiederà piccoli "
    "aggiustamenti per essere adattata al gusto dell'utente. Si usi il "
    "programma \"SetVNC\" nel cassetto Prefs del proprio sistema "
    "per effettuare le necessarie modifiche una volta completata "
    "l'installazione."
))

(set #prefs-standard
(cat    "Impostazioni Predefinite"
))

(set #prefs-mine
(cat    "Mia Configurazione"
))

(set #prefs-xterm
(cat    "Come XTerm"
))

(set #prefs-none
(cat    "nessuna"
))

(set #patch-more-pi
(cat    "Si desidera correggere un errore nel comando More?"
))

(set #patch-more-help
(cat    "Il comando More disabilita l'iconficaziione della finestra di ViNCEd "
    "nella quale sta girando. Questo patch corregge il problema per la "
    "versione 40.3 di More e aggiorna il numero di versione a 40.4."
))

(set #where-more
(cat    "Selezionare il comando More:"
))

(set #where-more-help
(cat    "Si selezioni il comando More col riquadro di richiesta file. Di "
    "solito lo si trova nel cassetto \"Utilities\" della partizione "
    "di sistema.\n"
    #patch-more-help
))

(set #install-named-pi
(cat    "Si desidera installare il NamedConsoleHandler?"
))

(set #install-named-help
(cat    "Il NamedConsoleHandler aggira una caratteristica delle "
    "versioni 2.0 e 2.1 del S.O. che impedisce il funzionamento di "
    "^Z in ViNCEd. Non è necessario installarlo se si sta usando il "
    "S.O. 3.0 o 3.1. "
))

(set #install-named-where
(cat    "Dove si vuole installare il NamedConsoleHandler?"
))

(set #install-named-where-help
(cat    "Il NamedConsoleHandler dovrebbe essere posto nel cassetto L: "
    "della partizione di boot, dove stanno tutti gli altri handler.\n "
    #install-named-help
))

(set #install-named-icon
(cat    "Dove si vuole installare l'icona di montaggio della NamedConsole?"
))

(set #install-named-icon-help
(cat    "L'icona di montaggio della NamedConsoleHandler dovrebbe stare "
    "in DEVS:DosDrivers, dove ci sono le altre icone di montaggio. "
    "Per abiliare il comando ^Z di ViNCEd per le versioni 2.0 e "
    "2.1 del Sistema Operativo, questa icona deve essere montata "
    "all'avvio.\n"
    #install-named-help
))

(set #exit-not-found
(cat    "Impossibile trovare il file \"%s\" - Errore del DOS %ld "
    "- installazione terminata prematuramente. "
))

(set #exit-text
(cat    "Installazione di ViNCEd completata. Si dovrebbe ora riavviare il computer.\n"
    "Spero che ViNCEd vi piaccia quanto piace a me..."
))
))

;==========================================================================
;###script###
;say hi !
;
(welcome)
;==========================================================================
;intialize some strings.
;unfortunately, the installer does distinguish between empty strings
;and non-initialized strings. Ooops.
(set #archive "")
(set #guide-path "")
(set #libs "")
(set #where-docs "")
(set #stringdest "")
(set #uxdest "")
(set #uxguidedest "")
(set #multidest "")
(set #topazdest "")
(set #cdir "")
(set #devsdir "")
(set #prefsdrawer "")
(set #where-guide "")
(set #guide-path "")
(set #script-location "")
(set #icon-pos "")
(set #tbidest "")
(set #more-location "")
(set #named-location "")
(set #named-icon-location "")

;===========================================================================
; get target directory where update is to be installed

(set #old_wb "SYS:")

(set #target (askdir    (prompt #which-disk)
            (help #which-disk-help)
            (disk)
            (default #old_wb)
))

(if (not (and (exists (tackon #target "S/Startup-Sequence"))
          (exists (tackon #target "DEVS"))
          (exists (tackon #target "LIBS"))
          (exists (tackon #target "C")) ))
     ;then
     (abort #no-assign)
)

;set @default-dest to user selected target
(set @default-dest #target)

;get directory to save old files
(set #stash_old (tackon #target #old-name))

;==========================================================================
;rename old files

(set #startup-sequence  (tackon #target "S/Startup-Sequence"))
(set #mountlist          (tackon #target "DEVS/MountList"))
(set #devssettings    (tackon #target "DEVS/VNC-Configuration"))
(set #oldsettings    (tackon #target "Prefs/ENVARC/Sys/VNC-Configuration"))
(set #oldarexx        (tackon #target "LIBS/rexxsyslib.library"))
(set #oldmore        (tackon #target "Utilities/More"))

;get all existing files
(set #oldfiles "")

(if (exists #startup-sequence)
    ;then
    (set #oldfiles (cat #oldfiles #startup-sequence "\n"))
)

(if (exists #mountlist)
    ;then
    (set #oldfiles (cat #oldfiles #mountlist "\n"))
)

(if (exists #oldsettings)
    ;then
    (set #oldfiles (cat #oldfiles #oldsettings "\n"))
)

(if (exists #devssettings)
    ;then
    (set #oldfiles (cat #oldfiles #devssettings "\n"))
)

(if (exists #oldarexx)
    ;then
    (set #oldfiles (cat #oldfiles #oldarexx "\n"))
)

(if (exists #oldmore)
    ;then
    (set #oldfiles (cat #oldfiles #oldmore "\n"))
)

;if some oldfiles found
(if (<> #oldfiles "")
(
    (if (askbool (prompt (#move-old #stash_old #oldfiles))
         (help (#move-old-help #stash_old))
         (choices #move-old-1 #move-old-2)
         (default 1)
    )
    ;then do it
    (
    ; create new directory w icon
    (makedir #stash_old (infos))
    ; create s and devs subdirectory
    (makedir (tackon #stash_old "S"))
    (makedir (tackon #stash_old "Devs"))

    ; copy startup-sequence to old-drawer
    (if (exists #startup-sequence)
        ;then
        (
        (delete (tackon #stash_old "S/Startup-Sequence"))
        (copyfiles
            (source #startup-sequence)
            (dest (tackon #stash_old "S/Startup-sequence"))
        )
    ))

    ;copy mountlist to old-drawer
    (if (exists #mountlist)
        ;then
        (
        (delete (tackon #stash_old "DEVS/Mountlist"))
        (copyfiles
            (source #mountlist)
            (dest   (tackon #stash_old "DEVS/Mountlist"))
        )
    ))

    (if (exists #oldsettings)
        ;then
        (
        (delete (tackon #stash_old "Prefs/ENVARC/Sys/VNC-Configuration"))
        (copyfiles
            (source #oldsettings)
            (dest   (tackon #stash_old "Prefs/ENVARC/Sys/VNC-Configuration"))
        )
    ))

    (if (exists #devssettings)
        ;then
        (
        (delete (tackon #stash_old "DEVS/VNC-Configuration"))
        (copyfiles
            (source #devssettings)
            (dest   (tackon #stash_old "DEVS/VNC-Configuration"))
        )
    ))

    (if (exists #oldarexx)
        ;then
        (
        (copyfiles
            (source #oldarexx)
            (dest #stash_old)
        )
    ))

    (if (exists #oldmore)
        ;then
        (
        (copyfiles
            (source #oldmore)
            (dest #stash_old)
        )
    ))

    ))
))

(complete 5)
;==========================================================================
;###install library###
; now copy ViNCEd to target

; ask user to insert VNC

(set #vncsource "/")

(if (> @user-level 1)
    ;then
    (set #vncsource (askdir (prompt #ask-vnc)
                (help   #ask-vnc-help)
                (default "/")
            ))
)

(makeassign "..VNC.." #vncsource (safe))

(set #guide-path (askfile       (prompt #browser-where)
                (help #browser-help)
                (default (tackon #target "Utilities/MultiView"))
            )
)

(if (<> #guide-path "")
    (run    ("\"%s\" ..VNC..:ReadMe.First!" #guide-path))
)

;(execute "..VNC..:Install/Secret" (safe))

;copy library
(if (> @user-level 1)
    ;then
    (
        (set #pi-copy-lib
            (askbool    (prompt #copy-lib)
                    (help #copy-lib-help)
                    (default 1)
                    (choices #yes #no)
            )
        )
    )
    (set #pi-copy-lib 1)
)

(set #libs (tackon #target "LIBS"))
(set #cdir (tackon #target "C"))

(if #pi-copy-lib
    (
        (if (> @user-level 1)
            ;then
            (
                (set #libs
                    (askdir     (prompt #where-lib)
                            (help #where-lib-help)
                            (default #libs)
                    )
                )
            )
        )

        (if (<> #libs "")
            (
                (if (not (exists #libs))
                    (makedir #libs)
                )

                (copyfiles      (source "..VNC..:LIBS/vnc.library")
                        (dest #libs)
                )
            )
        )
    )
)
;=========================================================================
;###install setvnc###
(complete 10)

;copy preference-program
(if (> @user-level 1)
    ;then
    (
        (set #pi-copy-setvnc
            (askbool    (prompt #copy-setvnc)
                    (help #copy-setvnc-help)
                    (default 1)
                    (choices #yes #no)
            )
        )
    )
    (set #pi-copy-setvnc 1)
)

(if #pi-copy-setvnc
    (

        (if (> @user-level 1)
            ;then
            (
                (set #cdir
                    (askdir     (prompt #where-setvnc)
                            (help #where-setvnc-help)
                            (default #cdir)
                    )
                )
            )
        )

        (if (<> #cdir "")
            (

                (if (not (exists #cdir))
                    (makedir #cdir)
                )

                (if (exists "..VNC..:C/SetVNC")
                    ;then
                    (
                        (copyfiles      (source "..VNC..:C/SetVNC")
                                (dest #cdir)
                        )
                    )
                    ;else
                    (
                        (copyfiles      (source "..VNC..:C/SetVNC.coded")
                                (dest "T:")
                        )

                        (if (<> 0 (run "..VNC..:Extras/Decode T:SetVNC.coded"))
                            (abort #exit-not-decoded)
                        )

                        (run "Wait 2")

                        (rename     "T:SetVNC.coded" "T:SetVNC")

                        (copyfiles      (source "T:SetVNC")
                                (dest #cdir)
                        )

                        (delete     "T:SetVNC")
                    )
                )
            )
        )
    )
)

;remove the obsolete DEVS:VNC-Configuration file if present
(if (>= #version 36)
    ;then
    (
        (if (exists (tackon #target "Devs/VNC-Configuration"))
            (delete (tackon #target "Devs/VNC-Configuration"))
        )
        (if (exists (tackon #target "Devs/VNC-Configuration.info"))
            (delete (tackon #target "Devs/VNC-Configuration.info"))
        )

    )
)
;============================================================================
;###install languages###
(complete 15)
;
;add language-specific if 2.1 or higher
;
(if (>= #version 38)
    ;then
    (
        (if (> @user-level 1)
            (set #lang_mask (askoptions     (prompt #do-locale)
                            (help #locale-help)
                            (default #default_lang)
                            (choices "English"
                                 "Deutsch"
                                 "Français"
                                 "Slovensko"
                                 "Italiano"
                            )
                    )
            )
            (set #lang_mask -1)
        )

        (if (in #lang_mask 1)
            (
                (set #lang_arg "Deutsch")
                (INSTALL_LANGUAGE)
            )
        )

        (if (in #lang_mask 2)
            (
                (set #lang_arg "Français")
                (INSTALL_LANGUAGE)
            )
        )

        (if (in #lang_mask 3)
            (
                (set #lang_arg "Slovensko")
                (INSTALL_LANGUAGE)
            )
        )

        (if (in #lang_mask 4)
            (
                (set #lang_arg "Italiano")
                (INSTALL_LANGUAGE)
            )
        )
    )
)
;=========================================================================
;###install mountlist###
;
(complete 20)
;
;add mountlist entry if release 2.0 or less

(if ( > @user-level 1)
    (set #mount-pi (askbool (prompt #do-mount)
                (help #mount-help)
                (default 1)
                (choices #yes #no)
            )
    )
    (set #mount-pi 1)
)

(if #mount-pi

    (if (< #version 38)
        ;then
        (
            (set #joinsoure  "..VNC..:DEVS/Mount_VNC")
            (set #name       (tackon #target "devs/MountList"))
            (JOIN)
            (set #joinsoure  "..VNC..:DEVS/Mount_NEWCON")
            (JOIN)
        )
        ;else copy the icons
        (
            (set #devsdir (tackon #target "DEVS/DosDrivers"))

            (if (> @user-level 1)
                ;then
                (
                    (set #devsdir
                        (askdir     (prompt #where-devs)
                                (help #where-devs-help)
                                (default #devsdir)
                        )
                    )
                )
            )

            (if (<> #devsdir "")
                (

                    (if (not (exists #devsdir))
                        (makedir #devsdir)
                    )

                    (copyfiles
                        (source "..VNC..:DEVS/DosDrivers")
                        (dest #devsdir)
                        (infos)
                        (all)
                    )
                )
            )
        )
    )
)

;=========================================================================
;###install the NamedConsoleHandler for Os 2.0 and 2.1 ###
;
(complete 25)
;
;
(set #install-named 0)

( if (< #version 39)
    (
        (set #install-named 1)
        (if ( > @user-level 1)
            (
                (set #install-named     (askbool     (prompt #install-named-pi)
                                    (help #install-named-help)
                                    (default 1)
                                    (choices #yes #no)
                            )
                )
            )
        )
    )
)

(if #install-named
    (
        (set #named-location (tackon #target "L"))

        (if (> @user-level 1)
            ;then
            (
                (set #named-location
                    (askdir    (prompt #install-named-where)
                        (help #install-named-where-help)
                        (default #named-location)
                    )
                )
            )
        )

        (if (<> #named-location "")
            (

                (if (not (exists #named-location))
                    (makedir #named-location)
                )

                (copyfiles
                    (source "..VNC..:Extras/NamedConsoleHandler")
                    (dest #named-location)
                )
            )
        )

        (if (< #version 38)
            ;then
            (
                (set #joinsoure  "..VNC..:Extras/Mount_CONSOLE")
                (set #name       (tackon #target "devs/MountList"))
                (JOIN)
            )
            (

                (set #named-icon-location (tackon #target "DEVS/DosDrivers"))

                (if (> @user-level 1)
                    ;then
                    (
                        (set #named-icon-location
                            (askdir    (prompt #install-named-icon)
                                (help #install-named-icon-help)
                                (default #named-icon-location)
                            )
                        )
                    )
                )

                (if (<> #named-icon-location "")
                    (

                        (if (not (exists #named-icon-location))
                            (makedir #named-icon-location)
                        )

                        (copyfiles
                            (source "..VNC..:Extras/CONSOLE")
                            (dest #named-icon-location)
                            (infos)
                        )
                    )
                )
            )
        )
    )
)

;=========================================================================
;###install prefs-icon###
;
;get drawer to copy preference-icon
;
(complete 30)
;

(if (= #cdir "")
    (set #pi-copy-prefs 0)
    (if (> @user-level 1)
        (set #pi-copy-prefs
            (askbool    (prompt #do-prefs)
                    (help #prefs-help)
                    (default 1)
                    (choices #yes #no)
            )
        )
        (set #pi-copy-prefs 1)
    )
)

(set #pi-replace-prefs 1)

(if #pi-copy-prefs
    (
        (set #prefsdrawer #target)

        (if (exists (tackon #prefsdrawer "Prefs"))
            ;then
            (set #prefsdrawer (tackon #prefsdrawer "Prefs"))
        )

        (if (> @user-level 1)
            ;then
                   (
                       (set #prefsdrawer
                           (askdir    (prompt #where-prefs)
                              (help #where-prefs-help)
                               (default #prefsdrawer)
                    )
                       )
                   )
        )
    )
)

(if (= #prefsdrawer "")
    (set #pi-copy-prefs 0)
)

;copy preference-icon
(if #pi-copy-prefs
    (

        (if (not (exists #prefsdrawer))
                (makedir #prefsdrawer)
        )

        (copyfiles      (source "..VNC..:Prefs/SetVNC.info")
                (dest   #prefsdrawer)
        )

        (tooltype       (dest   (tackon #prefsdrawer "SetVNC"))
                (setdefaulttool (tackon #cdir "SetVNC"))
                (noposition)
        )
    )
)

(if (= #prefsdrawer "")
    (
        (set #prefsdrawer #target)

        (if (exists (tackon #prefsdrawer "Prefs"))
            ;then
            (set #prefsdrawer (tackon #prefsdrawer "Prefs"))
        )
    )
)


(if (> #version 35)
    (
        (set #archive (tackon #prefsdrawer "Env-Archive"))

        (if (> @user-level 1)
        ;then
            (
                       (set #archive
                           (askdir    (prompt #where-archive)
                        (help #where-archive-help)
                               (default #archive)
                    )
                       )
                   )
        )

        (if (and (<> #archive "") (exists #archive))
        ;then
            (
                (if (exists (tackon #archive "sys/VNC-Configuration"))
                    (if (> @user-level 1)
                        (
                            (set #pi-replace-prefs (askbool    (prompt #replace-old)
                                            (help #replace-old-help)
                                            (default 1)
                                            (choices #yes #no)
                                            )
                            )
                        )
                        (set #pi-replace-prefs 0)
                    )
                    (set #pi-replace-prefs 1)
                )

                (if #pi-replace-prefs
                    (
                        (set #prefs-mask (askchoice    (prompt #which-prefs)
                                        (help #which-prefs-help)
                                        (choices     #prefs-standard
                                                #prefs-mine
                                                #prefs-xterm
                                                #prefs-none
                                        )
                                        (default 2)
                                )
                        )

                        (if (= #prefs-mask 0)
                            (copyfiles    (source "..VNC..:Prefs/Env-Archive/Default.Prefs")
                                        (dest #archive)
                                        (newname "ViNCEd.Prefs")
                            )
                        )

                        (if (= #prefs-mask 1)
                            (copyfiles    (source "..VNC..:Prefs/Env-Archive/My.Prefs")
                                    (dest #archive)
                                    (newname "ViNCEd.Prefs")
                            )
                        )

                        (if (= #prefs-mask 2)
                            (copyfiles    (source "..VNC..:Prefs/Env-Archive/XTerm.Prefs")
                                    (dest #archive)
                                    (newname "ViNCEd.Prefs")
                            )
                        )
                    )
                )
            )
        )
    )
    (
        (set #archive (tackon #target "Devs"))

        (if (exists #archive)
            (copyfiles      (source "..VNC..:Prefs/Env-Archive/sys/Default.Prefs")
                    (dest (tackon #archive "VNC-Configuration"))
            )
        )
    )
)

;==========================================================================
;###install-guide###
;
(complete 35)
;
;ask user to install the vnc-guide
;
(if (> @user-level 1)
    (set #do-help   (askbool    (prompt #copy-help)
                    (help #copy-help-help)
                    (default 1)
                    (choices #yes #no)
            )
    )
    (set #do-help 1)
)

(if #do-help
    (
        (set #where-guide       (askdir     (prompt #help-dir)
                            (help   #help-help)
                            (default (tackon #target "Guides"))
                            (newpath)
                    )
        )

        (if (<> #where-guide "")
            (
                (copyfiles
                    (source "..VNC..:Guides/ViNCEd.Guide")
                    (dest #where-guide)
                    (infos)
                    (noposition)
                )

                (if #pi-copy-prefs
                    (tooltype
                        (dest (tackon #prefsdrawer "SetVNC"))
                        (settooltype "HELPPATH" (tackon #where-guide "ViNCEd.guide"))
                    )
                )

                (if (and (<> #archive "") (> #version 35) (exists #archive))
                    (
                        (set #envguide (tackon #archive "VNCGuide.path"))
                        (if (exists #envguide)
                            (delete    #envguide)
                        )
                        (textfile     (dest #envguide)
                                (append    (tackon #where-guide "ViNCEd.guide"))
                        )
                    )
                )

                (if (= #guide-path "")
                    (set #guide-path (askfile (prompt #browser-where)
                                  (help #browser-help)
                                  (default (tackon #target "Utilities/MultiView"))
                            )
                    )
                )

                (if (<> #guide-path "")
                    (tooltype
                        (dest (tackon #where-guide "ViNCEd.Guide"))
                        (setdefaulttool #guide-path)
                    )
                )
            )
        )
    )
)

;==========================================================================
;###install scripts###
;
(complete 40)
;
;now install the scripts
(if (> @user-level 1)
    (
        (set #pi-copy-scripts (askbool  (prompt #do-scripts)
                        (help #scripts-help)
                        (default 1)
                        (choices #yes #no)
                    )
        )

        (if #pi-copy-scripts
            (
                (set #script-location
                    (askdir (prompt #where-scripts)
                        (help #where-scripts-help)
                        (default (tackon #target "S"))
                    )
                )

                (if (<> #script-location "")
                    (if (not (exists #script-location))
                        (makedir (#script-location))
                    )
                    (set #pi-copy-scripts 0)
                )
            )
        )
    )
    (
        (set #pi-copy-scripts 1)
        (set #script-location (tackon #target "S"))
    )
)

;==========================================================================
(complete 45)
(if #pi-copy-scripts
    (

        (protect "..VNC..:S/fg" "+es")
        (protect "..VNC..:S/bg" "+es")
        (protect "..VNC..:S/fork" "+es")
        (protect "..VNC..:S/SetFont" "+es")
        (protect "..VNC..:S/SetKeyBoard" "+es")
        (protect "..VNC..:S/More" "+es")

        (copyfiles      (source "..VNC..:S/fg")
                (dest   #script-location)
                (optional force)
        )

        (copyfiles      (source "..VNC..:S/bg")
                (dest   #script-location)
                (optional force)
        )

        (copyfiles      (source "..VNC..:S/fork")
                (dest   #script-location)
                (optional force)
        )

        (copyfiles      (source "..VNC..:S/SetFont")
                (dest   #script-location)
                (optional force)
        )

        (copyfiles      (source "..VNC..:S/SetKeyboard")
                (dest   #script-location)
                (optional force)
        )

        (copyfiles      (source "..VNC..:S/More")
                (dest   #script-location)
                (optional force)
        )
    )
)
;
;==========================================================================
;###install startup###
;
(complete 50)
;
; now modify the startup-sequence
; first get the name
(if (>= #version 36)
    (set #nametype 1)
    (set #nametype 2)
)

;now ask the expert user if it's O.K.
(if (> @user-level 1)
     (set #nametype  (+    (askchoice
                (prompt #which-name)
                (help   #which-name-help)
                (choices "VNC" "NEWCON")
             ) 1)
     )
)

(if (= #nametype 1)
    (set #installcmd "Mount VNC:")
    (set #installcmd "Mount NEWCON:")
)

(if (>= #version 36)
    (set #installcmd (cat ";" #installcmd))
)

(if (> @user-level 1)
    (set #pi-copy-icon (askbool     (prompt #copy-icon)
                    (help #copy-icon-help)
                    (default 1)
                    (choices #yes #no)
                )
    )
    (set #pi-copy-icon 1)
)

(set #icon-pos #target)

(if (not (exists (tackon #icon-pos "Shell.info")))
    (set #icon-pos (tackon #target "System"))
)

(if (> @user-level 1)
    (if #pi-copy-icon
        (
            (set #icon-pos  (askdir (prompt #where-shell)
                        (help #where-shell-help)
                        (default #icon-pos)
                    )
            )
        )
    )
)

(if (<> #icon-pos "")
    (if #pi-copy-icon
        (

            (if (exists (tackon #icon-pos "Shell.Info"))
                (delete (tackon #icon-pos "Shell.info"))
            )

            (if (= #nametype 1)
                (
                    (copyfiles
                        (source "..VNC..:Shell_VNC.info")
                        (dest   #icon-pos)
                    )
                    (rename (tackon #icon-pos "Shell_VNC.info")
                        (tackon #icon-pos "Shell.info"))
                )
                (
                    (copyfiles
                        (source "..VNC..:Shell.info")
                        (dest   #icon-pos)
                    )
                )
            )

            (tooltype       (dest   (tackon #icon-pos "Shell"))
                    (noposition)
            )
        )
    )
)

(if #pi-copy-setvnc
    (
        (if (> @user-level 0)
            (set #do-override
                (askbool    (prompt #override-con)
                        (help #override-help)
                        (default 1)
                        (choices #yes #no)
                )
            )
            (set #do-override 1)
        )

        (if #do-override
            (set #installcmd (cat #installcmd ("\n%s Quiet Mount Override as CON:" (tackon #cdir "SetVNC"))))
        )
    )
)

(startup "VNC"
    (command #installcmd)
    (prompt #modify-startup)
    (help (#modify-startup-help #installcmd))
)

;==========================================================================
;###install includes###
;
(complete 55)
;
;now install documentation-files for expert user

(if (> @user-level 1)
    (
        (if (askbool    (prompt #do-docs)
                (help #docs-help)
                (default 0)
                (choices #yes #no)
            )
            (
                (set #where-docs    (askdir (prompt #docs-where)
                                (help   #docs-help)
                                (default (tackon #target "Include"))
                                (newpath)
                            )
                )

                (if (<> #where-docs "")
                    (copyfiles
                        (source "..VNC..:Include")
                        (all)
                        (dest #where-docs)
                    )
                )
            )
        )
    )
)

;==========================================================================
;###patch arexx bug###
;
(complete 60)
;
;

(if (> @user-level 1)
    (set #rlibs    (askdir    (prompt    #where-rexx)
                (help #where-rexx-help)
                (default #libs)
            )
    )
    (set #rlibs #libs)
)

(set #rxname (tackon #rlibs "rexxsyslib.library"))
(set #patch-arexx 0)

(if (exists #rxname)
    (

        (set #rxversion    (getversion (tackon #rlibs "rexxsyslib.library")))

        (if (< #rxversion (+ (* 36 65536) 24))
            (
                    (if (> @user-level 1)
                    (set #patch-arexx (askbool      (prompt #do-patch)
                                    (help #patch-help)
                                    (default 1)
                                    (choices #yes #no)
                                )
                    )
                    (set #patch-arexx 1)
                )
            )
        )
    )
)

(if #patch-arexx
    (

        (if (= 0 (run ("..VNC..:Extras/SPatch -ot:rexxsyslib.library -p..VNC..:ARexx/rexxsyslib.pch \"%s\"" #rxname)))
            (
                (copyfiles      (source "t:rexxsyslib.library")
                        (dest #rlibs)
                )
                (delete    "t:rexxsyslib.library")
            )
        )
    )
)
;==========================================================================
;###patch More bug###
;
(complete 65)
;
;

(set #more-location    (tackon #target "Utilities/More"))

(if (> @user-level 1)
    (set #more-location    (askfile (prompt #where-more)
                (help #where-more-help)
                (default #more-location)
            )
    )
)

(set #patch-more 0)

(if (exists #more-location)
    (

        (set #moreversion    (getversion #more-location))

        (if (= #moreversion (+ (* 40 65536) 3))
            (
                (if (> @user-level 1)
                    (set #patch-more (askbool         (prompt #patch-more-pi)
                                    (help #patch-more-help)
                                    (default 1)
                                    (choices #yes #no)
                             )
                    )
                    (set #patch-more 1)
                )
            )
        )
    )
)

(if #patch-more
    (
        (if (= 0 (run ("..VNC..:Extras/SPatch -ot:More -p..VNC..:Extras/More.pch \"%s\"" #more-location)))
            (
                (copyfiles      (source "t:More")
                        (dest (pathonly #more-location))
                )
                (delete    "t:More")
            )
        )
    )
)
;==========================================================================
;###install the tbiclass###
;
(complete 70)
;
(if (>= #version 39)
    (
        (if (> @user-level 0)
            (set #pi-copy-tbiclass        (askbool    (prompt #copy-tbiclass)
                                    (help #copy-tbiclass-help)
                                    (default 0)
                                    (choices #yes #no)
                            )
            )
            (set #pi-copy-tbiclass 0)
        )

        (if #pi-copy-tbiclass
            (
                (set #tbidest (tackon #target "Classes/Images"))

                (if (> @user-level 1)
                    (set #tbidest        (askdir    (prompt #where-tbiclass)
                                    (help #where-tbiclass-help)
                                    (default #tbidest)
                                )
                    )
                )

                (if (<> #tbidest "")
                    (
                        (if (not (exists #tbidest))
                            (makedir (#tbidest))
                        )

                        (copyfiles      (source "..VNC..:Extras/titlebar.image")
                                (dest #tbidest)
                        )
                    )
                )
            )
        )
    )
)

;==========================================================================
;###install stringsnip###
;
(complete 75)
;
(if (>= #version 37)
    (
        (if (> @user-level 0)
            (set #pi-copy-stringsnip    (askbool    (prompt #copy-stringsnip)
                                    (help #stringsnip-help)
                                    (default 1)
                                    (choices #yes #no)
                            )
            )
            (set #pi-copy-stringsnip 1)
        )

        (if #pi-copy-stringsnip
            (
                (set #stringdest (tackon #target "C"))

                (if (> @user-level 1)
                    (set #stringdest    (askdir    (prompt #where-stringsnip)
                                    (help #where-stringsnip-help)
                                    (default #stringdest)
                                )
                    )
                )

                (if (<> #stringdest "")
                    (
                        (if (not (exists #stringdest))
                            (makedir (#stringdest))
                        )

                        (copyfiles      (source "..VNC..:Extras/StringSnip")
                                (dest #stringdest)
                        )

                        (startup "StringSnip"
                            (command ("%s >NIL: install" (tackon #stringdest "StringSnip")))
                            (prompt #install-stringsnip)
                            (help #stringsnip-help)
                        )
                    )
                )
            )
        )
    )
)
;==========================================================================
;###install unixdirs###
;
(complete 80)
;
(if (>= #version 37)
    (
        (if (> @user-level 0)
                (set #pi-copy-uxd        (askbool    (prompt #copy-unixdirs)
                                    (help #unixdirs-help)
                                    (default 0)
                                    (choices #yes #no)
                            )
            )
            (set #pi-copy-uxd 0)
        )

        (if #pi-copy-uxd
            (

                (set #uxdest (tackon #target "C"))

                (if (> @user-level 1)
                    (set #uxdest        (askdir    (prompt #where-unixdirs)
                                    (help #where-unixdirs-help)
                                    (default #uxdest)
                                )
                    )
                )

                (if (<> #uxdest "")
                    (
                        (if (not (exists #uxdest))
                            (makedir (#uxdest))
                        )

                        (copyfiles      (source "..VNC..:Extras/UnixDirs3/UnixDirs3")
                                (dest #uxdest)
                        )

                        (startup "UnixDirs3"
                            (command ("%s WILDSTAR UNIXROOT QUIET" (tackon #uxdest "UnixDirs3")))
                            (prompt #install-unixdirs)
                            (help #unixdirs-help)
                        )
                    )
                )


                (set #pi-uxd-guide    (askbool    (prompt #copy-uxhelp)
                                    (help #copy-uxhelphelp)
                                    (default 1)
                                    (choices #yes #no)
                            )
                )
                (if #pi-uxd-guide
                    (
                        (if (<> #where-guide "")
                            (set #uxguidedest #where-guide)
                            (set #uxguidedest (tackon #target "Guides"))
                        )

                        (if (not (exists #uxguidedest))
                            (set #uxguidedest #target)
                        )

                        (if (> @user-level 1)
                            (set #uxguidedest    (askdir    (prompt #where-uxhelp)
                                            (help #where-uxhelp-help)
                                            (default #uxguidedest)
                                        )
                            )
                        )

                        (if (<> #uxguidedest "")
                            (

                                (if (not (exists (#uxguidedest)))
                                    (makedir (#uxguidedest))
                                )


                                (copyfiles      (source "..VNC..:Extras/UnixDirs3/UnixDirs3.guide")
                                        (dest #uxguidedest)
                                        (infos)
                                        (noposition)
                                )

                                (if (<> #guide-path "")
                                    (tooltype
                                        (dest (tackon #uxguidedest "UnixDirs3.Guide"))
                                        (setdefaulttool #guide-path)
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )
)
;==========================================================================
;###install truemultiassigns###
;
(complete 90)
;
(if (>= #version 37)
    (
        (if (> @user-level 0)
            (set #pi-copy-multi    (askbool    (prompt #copy-multiassigns)
                            (help #multiassigns-help)
                            (default 1)
                            (choices #yes #no)
                    )
            )
            (set #pi-copy-multi 1)
        )

        (if #pi-copy-multi
            (
                (set #multidest (tackon #target "C"))

                (if (> @user-level 1)
                    (set #multidest    (askdir    (prompt    #where-multiassigns)
                                (help    #where-multiassigns-help)
                                (default #multidest)
                            )
                    )
                )

                (if (<> #multidest "")
                    (
                        (if (not (exists #multidest))
                            (makedir #multidest)
                        )

                        (copyfiles      (source "..VNC..:Extras/TrueMultiAssigns")
                                (dest #multidest)
                        )

                        (startup "TrueMultiAssigns"
                            (command (tackon #multidest "TrueMultiAssigns"))
                            (prompt #install-multiassigns)
                            (help #multiassigns-help)
                        )
                    )
                )
            )
        )
    )
)
;==========================================================================
;###install topaz6.8###
;
(complete 95)
;
(
    (if (> @user-level 0)
        (set #pi-copy-topaz        (askbool    (prompt #copy-topaz6)
                                (help #copy-topaz6-help)
                                (default 1)
                                (choices #yes #no)
                        )
        )
        (set #pi-copy-topaz 0)
    )

    (if #pi-copy-topaz
        (
            (set #topazdest (tackon #target "FONTS"))

            (if (> @user-level 1)
                (set #topazdest        (askdir    (prompt #where-topaz6)
                                (help #where-topaz6-help)
                                (default #topazdest)
                            )
                )
            )

            (if (<> #topazdest "")
                (
                    (if (not (exists #topazdest))
                        (makedir (#topazdest))
                    )

                    (copyfiles      (source "..VNC..:Extras/Fonts")
                            (dest #topazdest)
                            (all)
                    )
                )
            )
        )
    )
)

;==========================================================================
(complete 100)

(TERMINATE)

(exit #exit-text)